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Benchmark Modula-2 


Benchmark Modula-2 is the programming environment 
everyone has been waiting for. Here are just a few of its 
amazing features: 


Extremely easy to use interactive programming 
environment featuring an integrated editor, 
compiler, linker and loader. 


© Perform complex editing tasks at turbo speed with 
the EMACS based editor which has over 150 
commands. The editor supports multiple files and 
windows. 


© Instantaneous compilation, just press [F2] and the 
current file is compiled at an amazing rate of 
10,000 lines/minute with bursts of up to 30,000 
lines/minute. 


© Fix errors right on the spot, just press [F1] and the 
cursor is moved to the position of the next error in 
the source file. 


© Instantaneous linking, just press [F3] and your 
program is linked at lightning speed. Most 
Programs can be linked in under 5 seconds. 


© Instant execution, just press [F4] and your program 
begins to execute. Execution speed is incredibly 
fast and the executable files are very compact. 


THE EXPERTS USE BENCHMARK MODULA-2 
“If you were waiting for an Amiga version of Turbo- 
PASCAL, forget it! Get the Benchmark package and 
learn Modula-2. You'll never want tu program in Pascal 
again.” 

-Richie Bielak, Amazing Computing Magazine 


“Frankly, I've been spoiled by the well-integrated 
Benchmark environment, so anything else pales in 
comparison.” 

-Steve Faiwiszewski, Amazing Computing Magazine 


“The novice programmer will find Benchmark Modula-2 
a joy to use and the professional programmer can use 
Benchmark Modula-2 to squeeze the last ounce of 
performance out of the Amiga.” 

-Martin Murray, author of PowerWindows, 
INOVATRONICS Inc. 


“The compiler can be kept in memory (to save loading 
and reloading) and the libraries, linker and editor fit on 
one disk. | have been able to happily run the compiler 
on an Amiga A500 with a single drive — quite a feat, 
especially with hardly any disk-swapping! The 
development ‘environment’ brings back memories of 
Turbo-Pascal on the PC...” 

-DJ, Enigma Magazine (U.K.) 


Benchmark Modula-2 is a trademark of Avant-Garde Software 
‘Amiga is a trademark of Commodore-Amiga, Inc. 


THE MODULA-2 LANGUAGE 

Modula-2 is the successor language to Pascal and is 
specifically designed for development rather than just 
classroom instruction. Modula-2 is very easy to learn 
because its syntax is the clearest of any of the modern 
high-level languages. Programmers familiar with Pascal, 
“C” or another high-level language will be able to start 
using Modula-2 immediately. The syntax of Modula-2 is 
so Clear that a program may be easily understood even 
if the original author did not include comments. 
Universities are beginning to use Modula-2 as a 
replacement for Pascal because it is simple enough for 
introductory programming courses, yet powerful enough 
to solve complex problems. 


FEATURES 

© A text editor based on EMACS. 

© A Modula-2 compiler. 

© A Modula-2 linker. 

© Access to all Amiga functions: AmigaDOS, Exec, 
Graphics, Intuition, Layers . . . 

© Standard modules: FileSystem, Terminal, InOut, 
Storage, MathLibo... 

© 700 pages of professionally written documentation. 

© Alarge collection of demonstration programs. 


PERFORMANCE 


REQUIREMENTS 
Amiga Computer A500/A1000/A2000, 
One disk drive, 512K memory 





Avant-Garde Software 
2213 Woodburn 
Plano, TX 75075 
(214) 964-0260 
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Disclaimer 


Avant-Garde Software provides this publication "as is", without warranty of any 
kind, either express or implied, including, but not limited to, the implied 
warranties of merchantability and fitness for a particular purpose. Avant-Garde 
Software may make improvements or changes in this publication or in the programs 
described in this publication, at any time and without notice. 


Copyright (c) 1986, 1987, 1988 by Avant-Garde Software and Leon Frenkel. 


All rights reserved. No part of this publication may be reproduced, stored in a 
retrieval system, or transmitted in any form or by any means, electronic, 
mechanical, photocopying, or otherwise, without prior written permission from 
Avant-Garde Software. 


Printed in the United States of America. 


Preface 


The Modula-2 Software Construction Set is a very efficient software 
development environment for the Commodore Amiga personal computer. The package 
can be used by both new and experienced Modula-2 programmers to create programs 
from the trivial to the very complex. 


The package contains the necessary software tools and documentation to 
support the development of Modula-2 programs. The following are the some of the 
items included in this package: 


* A very fast Modula-2 compiler which implements the entire Modula-2 
Janguage. The compiler provides a compilation speed of 10,000 lines per 
minute, with burst speeds of 30,000 lines per minute. The object code 
produced by the compiler is extremely fast and compact. 


* A lightning fast Modula-2 linker which binds together one or more 
separately compiled modules into an executable file. The executable file 
may be executed from the Command Line Interface(CLI), from WorkBench or 
from the EMACS editor. 


* An interactive full-screen editor based on EMACS. The editor supports 
editing of multiple files through one or more windows, with cutting and 
pasting between windows. There are approximately 158 commands available 
for performing many useful functions. The editor has been optimized for 
maximum speed, so most operations are performed in a fraction of a second. 
The editor has been seemlessly integrated with the compiler, linker and 
loader. This integration allows programs to be written, compiled, linked 
and run simply by pressing function keys in the editor. 


* As an alternative to the interactive environment each of the tools in the 
package may be used separately from the CLI. The compiler may be used from 
the CLI to batch compile a large number of files. The linker may be used 
to batch link a number of programs one after another. The EMACS editor is 
very useful for many different editing tasks, even light word processing is 
possible. 


* A very comprehensive collection of Modula-2 library modules is included. 
These libraries have been included so that the programmer can begin 
writing application programs immediately without having to reinvent the 
wheel. Each module has been written for maximum efficiency and has been 
regirously tested for reliability. 


* A clean and efficient interface to all of the Amiga hardware and software 
is provided. Every function in the ROM Kernel, Intuition and AmigaDOS is 
available in Modula-2. 


* For compatibility with other Modula-2 implementations the following 
standard modules are included: InOut, RealInOut, LongInOut, FileSystem, 
Terminal, Storage, MathLib@, etc. 


* Many other miscellaneous utility library modules are provided to make 
programming in Modula-2 even easier. 


* A direct assembly language interface is available. A special utility is 
Provided for converting from the standard Amiga object file format to the 
Proprietary format used by the Modula-2 linker in this package. 


* A very comprehensive manual describing the tools included in the package 
and how to use them. The documentation for the libraries contains an 
example for every procedure defined. Full documentation for the functions 
in the ROM Kernel, Intuition and AmigaDOS is available in other technical 
documents for the Amiga. 


An incredibly large collection of demonstration programs is included 
showing the use of almost every feature of the Amiga and Modula-2. The 
source code from any of the demonstration programs may be used in any user 
program without any additional cost. The example programs range from the 
very trivial to the very complex. The following is a very brief list of the 
Programs included: RayTrace - a ray-tracing program which produces 
incredible 3-D Hold-and-Modify (HAM) pictures, Draw - a free hand drawing 
Program, DuM2 - a friendly alternative to the CLI, GravityWars - a one or 
two player strategy game, Othello - an interesting board game. 


* Comprehensive technical support is included with the price of this package. 
We will do our best to answer any questions you may have about using this 
Package. Support is available via telephone or mail. 


* The product is constantly being improved and any new releases will be 
offered to registered users at a reasonable fee, depending on the nature of 
the upgrade. Bug fixes are not considered as upgrades and will be made 
available at cost of distribution or free if possible. Many enhancements 
are planned and will be implemented based on the responses we receive from 
users of the product. 


* Additional add-on products are available from us which further extend the 
usefulness of the package. The following additional Products are currently 
available, with many other products in development: 


- Source Level Debugger 

- Simplified Amiga Libraries 

- "C" Language Libraries 

- IFF Libraries, Image Resource Utility 

* Third party support products will also be available in the near future to 
fill the needs of the wide variety of uses for this package. 


Acknowledgments 
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package were written by Leon Frenkel, Mic Kaczmarezik, Scott Thompson, Ed Bartz, 
Richie Bielak, Steve Faiwiszewski and many other Amiga hackers. 


| : | 
adrnagbe Twonwod 


fatitest sami yt neditow aoe eyndoag att nb Meee SvhwSou arid 
exeniocsi® « Bade oyed my teead at song ah Hf Cebalont 03 
ay ihprreens o]M $xeval mth ot Jew 
20" aoniemy-eit to not RSE wit aa Yoon ed don 
eit of tty font Petey nolievetdees ath bash nots yd note 
31k BD ,posqeee’? fraw? ,dlewadesae otM “teterct ee weed ye pad eo anew 
AvetoRs agind tao gree Gem Mlaesselwtat avele aaiale stots 








TABLE OF CONTENT: 


pRWWWWY 





Chapter 2 Installation 


Introduction......... 
System Requirements 
Starting AmigaDOS 
Backing Up the Original Diskettes. 
The Standard "Boot" Disk........ 
InstaliVing M2SCS <6 0.0. = = cram: 
Compiler Configuration Utility. 
Using M2SCS On a 512K Amiga.. 
Using M2SCS On a >512K Amiga. 
The "Tiny" EMACS Editor 











wanna wwwwww 


Chapter 3. Tutorial 
[7 hhallane soocedecd sapona ao sG 3 
Keyboard Command Abbreviations. 74 
Cursor Commands.............- Su) 
Insertion/Deletion Commands 6 

File Commands............. 7 
Buffer Commands. 
Window Commands. 
Region Commands..... ead 
Compiling/Linking/Running....... eerie hia elertis aunaiessis ieee 12 


Chapter 4 Modula-2 Compiler 
Running the Compiler... 
Compilation Errors. 
Compiler Return Codes. pOonosa ee 
Separate Compilation and Version Control 
Compiler Switches............-++-+2s- 
Standard Procedures. 
Pseudo Module SYSTEM.. 
Modula-2 Data Types... 
Long Literal Constants. 
MAENEVACIS cess cieraisieie-s 44 
Size Limitations. 
String Literals. 
FORWARD Procedure. 


















CODE Procedures..... -46 
Run Time Error Checking -46 
Register Usage........... -47 
Short and Long Addressing..........+--2-eeeee seen rece eee 48 





Chapter 5 Modula-2 Linker......-..... esses eee eee eee e eee 
Running the Linker : 
The Version Control System 5 § 
Symbolic Debugging.............+-+---- 


RUN Te MEPSUPPORE ET DRA iyi ics coca en ole clerersbelars ie ay e/eieters eioreinspiofe 3: 
Executable File Structure 
Linker Limitations 





Chapter:6) \EMACS Ed titanic arcs. scares sisye tatrtewie a oscar celens 
Running the Editor.... 
The Editing Environment. 


3: 
3 
3) 
EMACS Terminology..... 4 
6 
8 
8 





















Keyboard Commands 
Menu Commands. . 
Mouse Commands. 


Overwrite Mode. -10 
Fill Mode...... -10 
Delayed Prompts....... -10 
Command Prefix Argument. sak 


Rebinding Keys........ 
Expression Evaluation. 
Echo Line Prompt........ 
Auto Completion of Names. 
Executing Commands by Name. 
Keyboard Macro........... 
The EMACS Program Window. 
The File Requester...... 
The Current Directory. 
Exact Filename Mode... 
The Modula-2 Compiler. 
The Modula-2 Linker..... 
Running Modula-2 Programs.... 
Command Descriptions by Topic. 
Cursor Commands........... o22. 
Window Commands 
Buffer Commands 
File Commands........... 
Copy/Delete/Ki11 Commands 
Search/Replace Commands. . 
Case Commands............ 
Key Binding Commands 
Macro Commands...... 
Fill Mode Commands. 
Expression Commands... 








Miscellaneous Commands -31 
Mouse Commands...... +34 
Display Setup Commands... 35 


Modula-2 Compiler Commands. 


Modula-2 Linker Commands. a7, 
Moduil'a=21RUnsCommandSarccacecees seers atta Wess 38 
Chapter 7/~'Moduita=21Erron Whistenstactaemnatanet tts tees 571s 3 
RUNNING “thevEnronWiStenda ccc cere otter ete ss ioieisic 3) 


Chapter 8 Modula-2 Compiler Configuration Utility 
Running the Configuration Utility 





Chapter ‘9+ ‘Quick LoadtUtiMitye ses. one. he. er lees e so 3 
Creating a File List....... 
Loading a Quick Load File 
Making a Quick Load File. 





Chapter 10 Modula-2 Procedure Statistics Utility 





Running the Statistics Utility........---.-++++++++-- 
Chapter 11 Symbol File Cross Reference Utility............ 3 
Running the Cross Reference Utility.......--.+++++++-+++ 3 


Chapter 12 Object Module Generator Utility 
Running the Object Module Generator.......--.+-++++++s++ 










Chapter 13 Assembly Language Interface.........--+--s.eeee 
Background Information...........- ea 
Compiling the Definition Module..... 
Assembling the Implementation Module. 
Linking the Object File............. 
Converting to an Object Module. 
Example Conversion Batch File........ 2 
Example of an Assembly Language Module..........--.-+--- 


Chapter 14 Module ASCII............- Sa cas OK 
CharIsASCII......... 
CharIsControl.. 
CharIsPrintable........ cece cece cece eet e eee e sets eee ercees 


pRRAW 


Chapter 15 Module Conversions..........-. 
ConvStringToNumber....... 
ConvNumberToString........eeeeeee eee r reece cern ceecseeeee 


















unw 


CHOSE. 5-00 cinrnj= ss acneriniusisiele 


ReadChar.. 
WriteChar 





Chapter 17 Module Heap..........sseeeeeeneerecee ee ecsecees 
ALLOCATE.....-;-.0.- + 216,-« 5 
DEALLOCATE. 
Available. 
FreeHeap. .....- eee eee cece eee eect eect eeecees 


Chapter 18 Module InitMathLibo 
OpenMathLib@...........--- 
CloseMathLibd... 


Chapter 19 Module InOut.............-.-+-+++- 
OpenInput.......... 
OpenOutput... 
OpenInputFile. 
OpenOutputFile 
CloseInput.... 
CloseOutput. 
Read....... 
ReadString.. 


wCmud TAHaw 





Git see ca oc a sakes none 0 Coen OCO0 ENO MOTO DGB AONor se 12 




















ReadCard. pt) 
ReadWrd.. 14 
Write. 15 
WriteLn.. -16 
WriteString. ily) 
WriteInt.. -18 
WriteCard. .18 
WriteOct.. S15) 
WriteHex..... é A Solo 
(Taal Ghetto SON ne Spee eb SS fas ders cade adnosina galas 18 
Chapter 20 Module LargeSets............+++++seeereeee eee 3 
CreateSet.. 3... +3... “4 
DeleteSet. Av) 
SetInfo... -6 
SetRange... oy. 
Liars telpiaie lace 8 


InclElement.. 
ExclElement.. 
InclRange. . 
Exc1Range. 
CopySet. 
Union. 


Intersection.. . 3 3 5 one 
SymmetricDiff.... 0... ccc ceweeenareieresccescsereescne ces alg) 


Chapter 21 Module LongInOut...........-..- sees e cece eee ee 
ReadLongInt............- 
ReadLongCard. 
WriteLongint.. 
WriteLongCard. 
WriteLongOct..... : 
WriteLonghex...........--.es20e- SIC eT as. CIN 




















Chapter 22 Module MathLibO 
ANGCOS aie iareinstereferetstts = 
arcsin. 
arctan. 
COS. 
sin. 
tan. 
cosh.. 
sinh.. 
tanh. 
exp. 
ners 
log. . 
power 
sqrt. 
real. 
entier. 
DegToRad. . . y Q a 
RadTODEG. .. 26... cece eee cree eee eee e eect eee e teste ee ne 


Chapter 23 Module RandomNumbers 
RANGOMS ccs 5 cic occ aisle clots ate giclere nictale wie ~ oiatnin! tela lepotelslareveneis © v'e10\0 


Chapter 24 Module RealConversions. 
ConvStringToReal.............. ones 
CONVREATTOSEFiNg....-. eee eee cece rere cece e eee tenet eee eee 








Chapter 25 Module RealInOut 
ReadReal.... 


WriteOReal’s Wisi). <'e« ole’ 2 orm c wielote's olntels la lel elelols ostererois elsvelarste («+ ; 
Chapter 26 Module RunTimeErrors...........-+-see seer eee 3 
InstallErrorHandler........- 4 















RemoveErrorHandler...... c 


Chapter 27 Module Storage............+ssse eee crete eee ee 
AUUOG AU Estee ecyererernte oor 
DEALLOCATE. 
Available......... 


Chapter 28 Module StringS.............sesesee sere eee e rene 
Stringlength......°.--- 
ConvStringToUpperCase 
CompareString........ 
CompareStr ingCAP 
CopyString.... 
ConcatString.. % 
InsertSubString...... 
OverwriteWithSubString. 
DeleteSubString... 
ExtractSubString 
LocateSubString. an 
LOGALECNAR Co cies etiats cle sie weiciels vie sieinisielsiardiejeisisiterre tele’ v:0\> 


WEL egeicmoss aceGcbonc 
BusyRead. 
ReadAgain 
Write... 
WriteLn.... 
WHT teStr ig. oo aiela wivieislelelelelels ersloieteiderors vie wieinreiejeie/al 







Chapter 31 Module TermInOut.............-.-.eeeeeee sere e ee 
Read..... 5 
ReadString 
Readint... 
ReadCard. 
Write.. 
WriteLn... 
WriteString. 
WriteInt.. 
WriteCard. 
WriteOct.. 

















WIPE OCHEX (crore ol oiatevs oiede) olel- rene) tteratereiei~ 
Chapter 32 Definition Modules............-.+-seeeeeeeeeees 3 
ADKHardware 4 





AmigaDOS. 2.0... eee cece reece eee ee eee e etter etter eecees 8 

















































AmigaDOSExt.. 14 
AmigaDOSProcess. : -16 
ARGOS oa cent : : ak) 
ASOT terest 220 
AudioDevice 22 
Bitter etieec +23 
BootBlock.. at, 
CIAHardware.. <28) 
CIAResource.... -38 
ClipboardDevice. ace 
CNP PANG <<<. mee 
CEIStiinee ..34 
ConfigRegs... AnEY/ 
ConsoleDevice. -40 
ConsoleDevUnit - 42 
Conversions... - 43 
Copper... - 44 
CopperUtil.. . 46 
CustomHardwar 44 -47 
DiskFont...... +49 
DiskResource. sagt 
Display...... 2092 
DMAHardware.. Sauls} 
Drawing “ 
Exec... 
ExecBase.... 
Expansion... 
FileHandler. 
FileSystem.. 65 
GamePortDevici 67 
GOVSirerinein.s 68 
Graphics... -74 
GraphicsBase -75 
Heaps eer Sieh 
InitMathLibi -78 
InOut....... seLk) 
InputDevice. -81 
InputEvents. -82 
Interrupts.. -84 
INTHardware. -86 
Intuition... -87 
IntuitionBase. oie 
I0Devices.... +113 
I0DevicesUtil -116 
KeyboardDevice. -117 
KeyMapResource.... y .118 
LargeSets...... . sald, 
Layers....... onal 
Libraries. 124 
.126 
AEE BARE A eb aatOeaE -128 
MathLibO. . : sienighed 
Memory...... Saeed: 
MiscResource. -134 
NarratorDevice. -135 
Nodes....2.-.-.. 137 













































PortsUtil... +141 
PotgoResource. -142 
Preferences. -143 


PrinterBase.. .147 
PrinterDevice. .149 
RandomNumbers. 152 
Rastenss. co. a. 


RealConversions. 
RealiInOut... 
Regions. . 
Resident. 
Resources... 
RomLayers.... 
RunTimeErrors. 


Semaphores... -163 
SerialDevice. +165 
Sprites.... +167 
Storage. -169 
Strings. -178 
System. . ware 
Tasks... -174 
TasksUti1 eli 
Terminal... .178 
TermInOut ave) 
Text.. - 180 
TimerDevi 182 
TrackDiskDevice. .183 
Translator. -185 
VA iecrce 186 
WOPK DENCH = ores we ceeleraterechs ageism acest: 189 
Appendix A Error Messages......... oraneses Atioy Meee eoaeaad 3 





Modula-2 Compiler Error Messages. 
List of Compiler Errors........ 
Description of Compiler Errors. 
Description of Non Compilation Errors. : 
Description of Fatal Errors......... rey 4 

Modula-2 Linker Error Messages. 

EMACS Editor Error Messages..... ne 
General) ERCORS <3): secs eee eas 
Modula-2 Compiler Errors, 
Modula-2 Linker Errors. 
Modula-2 Run Errors.. 
Miscellaneous Errors........... 

Modula-2 Error Lister Error Messages rae 

Modula-2 Object Module Generator.....................0.5 35 





Appendix B Command Summaries................0ceceeeeeeceee 
Modula-2 Compiler....... 
Modula-2 Linker.... 
Modula-2 Error Lister............... 
Modula-2 Compiler Configuration Utility.. 
Modula-2 Symbol File Cross Reference Utility 
Modula-2 Procedure Statistics Utility...... 
Modula-2 Object Module Generator.... 
Quick Loader Utility........... , 
EMACS  ECHEOM oe ctoinyse'aiovsreicielely ciclo cicrereie <eccrye aie oes ea eee 





Appendix C Definition Modules Cross Reference............. 


Appendix D Conversion from "C" to Modula-2 
Comments 
Identifiers...... 
Integer Constants 
Character Constants. . 
Floating Point Consta 
String Constants........ 
NWal Ger eeiersteselesete(ors 
Simple Data Types 
Pointer Type..... 
Array Type..... 
Structure Type. 
Union Type..... 
Function Type 
Boolean Type. 
Setrnypesss ssc. 
Type Conversion 
Type Casting..... 
"if" Statement. 
“while" Statement 
"do" Statement... 
“for” Statement.... 
"switch" Statement. 
“break" Statement... 
"continue" Statement 
“return" Statement 
“goto" Statement.. 


















Appendix E Conversion From TDI To M2SCS 
Compiler Differences 
Standard Modules.... 
Amiga Modules 





Appendix F Compatibility and Portability. 
MOGUTA=2 COMPTNER S151. «1 specerarenets efeselelste late 
Standard Modules.... 
Non Standard Modules 






Appendix G Demonstration Programs 


Appendix H Glossary 


Appendix I Modula-2 Language Syntax 


APDENGIR: Ji TEI OGhAPNY viesrernyacrs/als ciererstorote searey joy ier clelecala/siao/s6 


HPowoMMMOUUDAAUEDEEWWUW 








i-2 


Modula-2 Software Construction Set Reference Guide 


az 


Introduction 


This chapter provides a brief introduction to the Modula-2 language and to 
the Modula-2 Software Construction Set (M2SCS). 


Modula-2 


Modula-2 is a general purpose high-level programming language suitable for 
solving a great variety of programming problems. Modula-2 is a descendant of 
PASCAL and was designed by Niklaus Wirth as a replacement for PASCAL. 


The Modula-2 language is very easy to learn, especially for programmers 
familiar with PASCAL, "C" or another high-level language. The core language is 
small and very consistent. One thing that will be immediately noticeable is 
that a Modula-2 program listing can be very easy to read and understand even if 
the original author did not include any comments. 


Modula-2 Software Construction Set 





This package has been designed to provide a very efficient programming 
environment for using the Modula-2 language. It is well known that the 
programming environment being used greatly affects the productivity of the 
programmer. With this in mind, this package has been designed to provide a 
programmer with the most productive tools for programming available anywhere. 


The major software tools included in this package are: an Editor, a 
Compiler, a Linker and Support Libraries. The following paragraphs present a 
brief explanation of each of these tools. 


Editor 


The editor allows text to be entered or modified in the computer. The 
editor is used to enter the source text of a Modula-2 program into the computer. 
The M2SCS editor is an EMACS style editor with a large set of commands for 
manipulating text. Any number of text files can be edited simultaneously, this 
allows fast cutting and pasting of text from one location to another. In 


addition, the editor serves as a convenient user interface to the compiler and 
linker. 


Compiler 


The compiler translates a Modula-2 source text into machine language, ready 
to be linked by the linker. The compiler is very efficient and will compile 
large programs very quickly. The compiler can be called from within the editor 
to provide instant feedback of any errors found in the Modula-2 source text. 
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Linker 





The linker joins one or more separately compiled modules into an executable 
program. Once the linker has generated the executable file the program can be 
run to see if the results are correct. The linker can be called from within the 
editor. 


Libraries 


The libraries are pre-built and tested modules for performing many useful 
functions. Almost every Modula-2 program will utilize one or more of these 
libraries. This package includes an unusually large number of such libraries 
providing functions useful in almost any program and significantly reducing the 
amount of time required to write a program. 
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Installation 


This chapter contains installation procedures which must be performed 
before beginning to use this package. This chapter assumes you are already 
familiar with the AmigaDOS Command Line Interface (CLI). If you are not 
familiar with the CLI refer to the AmigaDOS User’s Manual or another reference 
book. 


Introduction 

The Modula-2 Software Construction Set has been designed to be easily 
installed on any Amiga configuration. Follow the instructions in each section 
of this chapter to properly install the software tools. 
System Requirements 


The following are the minimum requirements for running the Modula-2 
Software Construction Set: 


* Amiga Computer (with 512K bytes of memory) 
* Kickstart/Workbench Version: 1.2 or higher 


Significant performance benefits can be obtained by expanding the memory in 
the system and/or installing a hard-disk storage system. 


Starting AmigaDOS 
To use the M2SCS package you will need to use the CLI. Boot up the Amiga 


(refer to the documentation provided with the Amiga) and activate a CLI, when 
you get the "1>" prompt you are ready to proceed. 


Backing Up the Original Diskettes 





Before going any further make a backup of the original diskettes. This can 
be done using the "DiskCopy" command from the CLI. Make a backup copy of each 
diskette and put the original diskettes in a safe place. 


The Standard "Boot" Disk 

A pre-configured "Boot" disk is included to allow you to get a feel for the 
package without having to perform any installation or read the documentation. 
The "Boot" disk automatically loads the editor, compiler, linker and then loads 
in a smal] Modula-2 program "Hello.MOD". The sample program contains a comment 
which describes how to compile, link and run the program. 


If you are using a system with more than 512K of memory spend a little time 
and setup the package to use the extra memory, the pay off in time saved 
compiling/linking is well worth it. The "Boot" disk was configured to allow a 
user to begin working immediately, but is not necessarily the most optimal 
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configuration possible. After you have satisfied your initial curiosity, read 
the documentation and setup the package for your specific hardware 
configuration. 


Installing M2SCS 


The installation procedure for the M2SCS package will vary depending on the 
hardware configuration being used. The information in this section is common to 
all configurations. 


In order to work properly the tools in this package expect the following 
AmigaDOS device assignments: 


T: - Directory to be used for the compiler error log file 
M2L: - Directory which contains the Modula-2 libraries 


The assignments should be performed in the "“startup-sequence" file on the 
WorkBench diskette used in booting your system. The startup file may look like 
this: 


ASSIGN T: RAM:T 
ASSIGN M2L: DF1:M2L 


The actual directories to which the "M2L:" and "T:" point may vary 
depending on the configuration of your system. If both assigns refer to a 


ram-based disk the software will operate significantly faster then if both are 
assigned to a floppy disk. 


The tools included in this package should be placed in the “c:" directory 
of your disk. The directory containing the Modula-2 libraries assigned to 
"M2L:" must be on a disk always accessible to the compiler and linker. This 
directory contains a large number of files, two for each library module, one 
with the extension ".SBM" the other with the extension ".0BM". To save on disk 
space it may be useful to create a directory containing only the libraries which 
are actually used in your programs. 


If memory permits, it is recommended that the libraries be copied to the 
ram disk when performing compile or link operations, this will improve the speed 
of those operations. The fastest way to copy the libraries to the ram disk is 
using the quick loader utility (QLoad). This program takes an archive file and 
copies its contents to a specified destination directory much quicker than if 
the same operation was done using the CLI "copy" command. Refer to the chapter 
on the QLoad utility for more information. 
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When you first boot AmigaDOS the default stack size is set to 4000 bytes. 
This stack size should be increased to 10900 bytes when running the compiler 
from the CLI. Demonstration and user created programs may also require 
additional stack space to function properly. To be safe it is recommended that 
you set the stack size to at least 10000 bytes in the startup-sequence file, 
this may be done with the following command: 


STACK 19000 


To summarize, the following commands should be added to your existing 
startup-sequence file in order for the tools in this package to function 
properly: 


ASSIGN T: RAM:T 


ASSIGN M2L: DF1:M2L 
STACK 10000 


Compiler Configuration Utility 





Before you can begin using the compiler it may have to be configured 
according to your needs and the amount of memory available in your system. This 
configuration can be performed easily using the compiler configuration utility 
(M2Config). For further instructions refer to the chapter describing the 
M2Config utility. 


The "Boot" disk contains a version of the compiler configured for a 512K 
Amiga. The "Tools" disk contains a version of the compiler configured for an 
Amiga with more than 512K of memory. Both compilers are identical with the 
exception that each has been configured with different system parameters. 


Either copy of the compiler may be used directly or reconfigured to fit your 
needs. 


Using M2SCS On _a 512K Amiga 





The software in this package has been designed to work comfortably on an 
Amiga with 512K of memory. Most software development using this package will be 
performed while the EMACS editor and compiler are loaded into memory. In order 


to leave as much room as possible for development, the following suggestions are 
recommended. 
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The following is a short summary of the major points described in detail in 
the following text. If you have trouble understanding the long explanation, 
just do the following and you will achieve good results: 


* Do not use a ram disk or virtual disk. 


* Set the directory "T:" to floppy or hard disk and not to ram disk! This 
can be accomplished by adding the following to the startup-sequence: 
"ASSIGN T: df@:T". A directory called "T" should already exist on the 
designated disk prior to performing the ASSIGN, if the directory does not 
exist, create it using the "MakeDir df@:T" command. The disk on which the 
"T" directory is stored should not be write protected. The compiler writes 
out an error log file to the "T:" directory. 


* Close the original CLI window. By running EMACS using the "RunBack" 
command (supplied in this package) and then closing the CLI using “EndCLI". 
In the following example it is assumed the EMACS editor is in the “c:" 


directory. 
RunBack c:M2Ed 3 Pun EMACS 
EndCLI ; close CLI window 


The "T:" directory should be directed to one of the floppy disks or the 
hard disk and a ram disk should not be used at all. Even when no files are 
present on the ram disk the system is using a significant amount of memory, so 
you should not activate the ram disk at all. 


Another way to save memory is to use the "Tiny" version of the editor which 
has a few of the commands in the full-size editor removed to save space. The 
major item not found in the "Tiny" version is the file requester, instead files 
are selected at a prompt shown on the last line of the display. The decision to 
use the full-size or tiny version of EMACS is very subjective and depends on how 
well you can remember filenames on your disks. 


The original CLI opened by AmigaDOS should be closed after EMACS is 
started, this can only be accomplished if MACS is started using the "RunBack" 
command. If EMACS is started using the standard AmigaDOS "Run" command the 
original CLI will not close using the "“EndCLI" command. The "RunBack" command 
performs a function similar to the "Run" command, however, it allows the 
original CLI to be closed successfully. If you need to execute a CLI command 
later you can open a new CLI from EMACS by typing Ctr1-Z or selecting the "New 
CLI" command from the menu. After you are done with the CLI, use the “EndCLI" 
command to close the CLI. You may continue to use EMACS while the new CLI is 
opened, you may also open additional CLI windows. 


If you are going to be running the compiler only from within EMACS use a 
standard 4K stack when running EMACS, if you encounter any problems increase the 
stack size a bit. Note, EMACS allocates a stack for the compiler which is by 
default 10K. 
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By default EMACS uses a 20K stack when running user programs from the 
editor. For many programs this is too large and can be reduced to gain more 
space. It should be noted that the stack is allocated only when a user program 
is actually running and it does not effect the amount of available memory when 
No programs are running. The run stack size can be adjusted using the command 
"set-m2-run-stack-size" the command is available from the "Modula-2" menu. 


Additional memory can also be saved by setting up the compiler to use a 
minimal amount of memory, this can be done using the M2Config utility and using 
the "set-m2-comp-opt" command from the "Modula-2" menu in EMACS. The M2Config 
utility makes a permanent change to the compiler configuration while the 
"set-m2-comp-opt" command only changes the configuration for the current 
session. A great deal of memory can be saved by reducing the compiler’s heap 
size to a value less than 80K. However, this is only possible if the programs 
you wish to compile do not import the Intuition library, directly or indirectly. 
For example, a program which is file or text oriented may not need to use the 
Intuition library and could significantly reduce the amount of heap space 
required by the compiler. 


If you follow the above suggestions, specifically, not using a ram disk and 
closing the CLI window, you can expect a very significant improvement in the 
amount of memory available to work in. The following table shows the approximate 
amount of free memory available after loading the editor/compiler/linker on a 
512K system. The amount of free memory can be determined using the EMACS command 
"free-mem-avail" command from the menu. 


* Tiny Editor/Compiler/Linker/Run: 195000 bytes free 
* Full Editor/Compiler/Linker/Run: 181000 bytes free 


When a compilation is started, the compiler allocates memory for its heap 
and internal buffers, so while the above specified memory is available during 
editing, part of the that memory is needed by the compiler while it is actually 
compiling. The amount of memory needed by the compiler depends on its 
configuration, you may examine and/or alter the amount of memory used by the 
compiler using the editor’s "set-m2-comp-opt" command. If the compiler aborts 
due to a lack of memory try getting rid of text buffers which may be loaded but 
are not needed at the moment. 


If disk space is important keep in mind that once the editor and the 
compiler are loaded it is no longer necessary to have the disk containing them 
in the drive. This fact may be especially important for a one disk system where 
you may wish to load the editor and compiler and then replace the Workbench disk 
with another disk containing the libraries and the source you wish to compile. 
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Using M2SCS On a >512K Amiga 


On an Amiga with greater than 512K of memory significant improvements in 
performance can be obtained by using the additional memory in the following 
ways: 


* Copy the Modula-2 libraries onto the RAM disk. This will speedup both 
compiling and linking. The fastest way to copy the libraries to RAM is 
using the QLoad utility which can perform the entire operation in 
approximately 40 seconds, compared to using the AmigaDOS "Copy" command 
which could take 10 minutes. Further, by using a recoverable ram disk the 
load operation will only need to be performed once and if a system crash 
occurs the libraries will usually remain on the ram disk after rebooting 
the system. 


Perform all compiles and links in RAM by either directing output to the RAM 
disk using the "-o" switch of the compiler and the "-o" switch of the 
linker, or simply keep the RAM disk as the default directory so that all 
output will default to the RAM disk. It is best to keep the original 
source files on floppy because even recoverable RAM disks are not 100% 
reliable and not much is gained by keeping the source files in RAM as 
opposed to floppies. 


The "Tiny" EMACS Editor 


Two versions of the EMACS editor are included on the "Tools" disk, "M2Ed" 
and "M2Ed.Tiny". The program "M2Ed" is the full-size editor as described in the 
documentation, the program "M2Ed.Tiny" is a smaller version of the editor which 
saves about 15K bytes and may be useful to users with 512K of memory by 
providing more work space. The tiny editor is almost identical to the full-size 
editor, however, in the title bar the word "Tiny" appears. The following items 
are NOT available in the "Tiny" version of the editor: 


* File Requester Window is not available, as is the associated command: 
- file-req-mode 


* Startup File ".emacs" is not supported, the following commands associated 
with evaluating are not available: 
- eval-current-buffer 
- eval-expression 
- load 
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Commands to change the color and rendition of text are not available: 
- set-mode-background 
- set-mode-foreground 
- set-mode-rendition 
- set-text-background 
- set-text-foreground 
- set-text-rendition 


File backup feature controlled by the command are not available: 
- make-backup- files 


Prefix region commands are not available: 
- set-prefix-string 
- prefix-region 


Parenthesis matching commands are not available: 


- blink-matching-paren 
- blink-matching-paren-hack 
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Tutorial 


The purpose of this tutorial chapter is to familiarize you with the basic 
operations of editing, compiling, linking and running Modula-2 programs. It is 
assumed at this point that the installation of the software has been completed 
successfully. If the installation has not been completed return to the chapter 
on installation before continuing with the tutorial. It is beyond the scope of 
this tutorial to teach you how to program in Modula-2, for that you will need to 
read a book which describes the Modula-2 language specifically, a short list of 
Modula-2 books is presented in the appendix of this manual. 


To achieve the maximum benefit from the tutorial you should be sitting in 


front of your computer actually trying the commands being discussed in the 
tutorial. 


For extra convenience a function key strip has been included which 
describes the default functions key assignments in EMACS. The function key 
strip should be placed at the top of the keyboard as you will need to refer to 
it during this tutorial. 


After completing the tutorial you will be able to edit, compile, link and 
run a Modula-2 program. If after finishing the tutorial you are not completely 
comfortable with the operation of the system, repeat the tutorial again. After 
you have mastered the basics of using the tools, read the rest of the 
documentation to find out about additional features available in the package. 


Editing 


Before starting the tutorial on the editor it is suggested the first part 
of the chapter on the editor be read. The first part of the chapter describes 


the basic concepts of text editing, as well as, the special terminology specific 
to the EMACS editor. 


For this part of the tutorial you will need to run EMACS and read in the 
text file "EditTutorial.doc" which contains some arbitrary text on which you may 
try the new editing commands you will learn. To begin using the editor, run the 
editor program "M2Ed" with the text file to be used for the tutorial as a 
command line argument: "M2Ed EditTutorial.doc". The text file 
"“EditTutorial.doc" is located on the "Boot" disk. If necessary, copy the 
"EditTutorial.doc" file to your own work disk before running the editor. If the 
text file is not in the current directory, then change the current directory 
using the CLI’s "CD" command to the directory which contains the file. 


After some disk activity the editor will open a window displaying as its 
contents the specified text file. If the editor opens a window but the window 
is empty, this indicates that the editor could not find the specified file in 
the specified directory. Exit the editor by clicking on the "close-box" gadget 
at the upper left hand corner of the window. Check to make sure the text file 
is accessible and that you have typed the name in correctly, when you are sure 
everything is setup correctly try the command again. 
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Keyboard Command Abbreviations 


In this tutorial and elsewhere in this manual EMACS keyboard commands will 
be shown using the following abbreviations: 


* Ctri-<Char> - To produce the specified command press and hold the key 
labeled <CTRL> while typing the specified character. 


* Esc-<Char> - To produce the specified command type the key labeled <ESC>, 
release the key, then type the specified character. 


Examples: 
Ctri-n = Press and hold the control key and type "n". 
Esc-v = Type the escape key then type "v". 


EMACS can be forced to abort any partially entered command or prompt by 
entering Ctri-g. For example, if you have begun a command which begins with 
<Ese> and then decided to abort the command after typing the <Esc> key, pressing 
Ctri-g will abort the command. 


While working with EMACS if you find that you have forgotten the meaning of 
a specific key or combination of keys, pressing the <HELP> key followed by the 
key combination will display the name of the function associated with the key 
combination, on the echo line. 


Example: 
Pressing <HELP> will display the message "Describe key briefly:", now 


typing the right arrow key will display the message "Right runs the command 
forward-char", on the echo line. 


Throughout this tutorial commands will usually be referred to by the key 
combination necessary to execute the command. An alternative way of executing 
many of the commands is to use the pull-down menus. The menus are accessible by 
pressing down and holding the right mouse button and then moving the mouse to 
position the "pointer" on the specified menu title which will cause a menu of 
commands to appear below the menu title. To select a specific command move the 
“pointer" to the corresponding menu item and release the right mouse button. To 
help you master the keyboard commands faster, most of the menu commands show the 
default keyboard command which can be used to perform the same function. The 
keyboard command displayed in the menus use the following abbreviations: 


Control, same as Ctr1- 
Esc, same as Esc-, ("M" stands for META) 


(pc 
M- 
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Cursor Commands 


The basic cursor control commands allow you to move the cursor forward, 
backward, up or down. Two sets of keys are available for performing the basic 
cursor movement operations, the arrow keys and control keys. The following 
diagram illustrates the basic cursor movement commands: 


Ctr1-p,<Up> 
| 
Ctrl-b, <lettove-2ss #-550- Ctrl-f,<Right> 
| 
| 


Ctri-n,<Down> 


Moving forward from the last character of the line will move the cursor to 
the first character of the next line. Moving backward from the first character 
of the line will place the cursor at the last character of the previous line. 


When the cursor is moved above the top line or below the bottom line of the 
window, the contents of the window will scroll down or up respectively. After 
the window scrolls up or down, the line to which the cursor was being moved will 
be positioned in the center of the display. 


If a line is longer than the width of the display, the right edge of the 
display will contain the character "$" to indicate there are additional 
characters which are not visible. The cursor may be positioned on the invisible 
characters, but the solid cursor block will not move beyond the right edge of 
the display. 


Since moving a character at a time can be slow, EMACS has commands for 
moving a word at a time. EMACS considers a word to be a sequence of 
alpha-numeric characters terminating on a white space, the end of line or a 
punctuation character. To move the cursor forward a word at a time use Esc-f or 
<Shift>-<Right>. To move the cursor backward a word at a time use Esc-b or 
<Shift>-<Left>. 


Additional commands are available for moving the cursor to either end of a 
line in one quick step. To move to the beginning of the line use Ctrl-a. To 
move to the end of the line use Ctri-e. 


At any given moment only a small portion of a buffer is visible in the 
window. To view the previous page of the buffer use Esc-v. To view the next 
page of the buffer use Ctri-v. 


Finally, there are commands for moving to either end of the buffer 
instantaneously. To move to the beginning of the buffer use Esc-<. To move to 
the end of the buffer use Esc->. 
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An alternative to moving the cursor with keyboard commands is to use the 
mouse. Move the mouse to the desired position and click the left button once, 
the cursor will move to the new position. This only works for text currently 
visible in the window. 


The following table summarizes the cursor movement commands learned so far: 


Ctrl-f or <Right> = Moves the cursor forward one character 
Ctrl-b or <Left> = Moves the cursor backward one character 
Ctrl-p or <Up> = Moves the cursor to the previous line 
Ctri-n or <Down> = Moves the cursor to the next line 

Esc-f or <Shift>-<Right> = Moves the cursor forward one word 
Esc-b or <Shift>-<Left> = Moves the cursor backward one word 
Ctrl-a = Moves the cursor to the first character of the line 
Ctrl-e = Moves the cursor to the last character of the line 
Ctrl-v = Moves the cursor to the next page of the buffer 
Esc-v = Moves the cursor to the previous page of the buffer 
Esc-< = Moves the cursor to the first character of the buffer 
Esc-> = Moves the cursor to the last character of the buffer 


44H HHH HH HH 


Before continuing with the tutorial, spend a few minutes experimenting 
with the cursor control commands until you are comfortable with their operation. 


Insertion/Deletion Commands 


To insert text into the buffer simply begin typing characters and they will 
be inserted at the cursor position. When you wish to begin a new line of text 


press the <RETURN> key and a new line will be created with the cursor positioned 
on the first character of the line. 


While typing, if you notice that the previous character typed is incorrect, 
pressing the <BackSpace> key or its equivalent Ctri-h, will delete the previous 
character and move the cursor backwards by one character. To delete the 
character that is under the cursor, press the <DEL> key or its equivalent 
Ctri-d, any characters remaining on the line will move backwards by one 
character to fill the empty space. 


A "newline" character is stored at the end of each line of text to indicate 
the termination of the line. Deleting the "newline" character will cause the 
next line to merge and become part of the current line. If a line becomes too 
long to be displayed in the window a "$" character will appear in the rightmost 
column of the display indicating that the line contains additional characters 
which are not visible on the display. 


When EMACS is directed to perform a delete on something larger than a 


character it stores the deleted text in a "kill buffer". The text can be 
restored by "yanking" the text from the "kill buffer". 
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For instance, to delete a word, position the cursor to the right of the 
word you wish to delete then type Esc-d or Esc-<DEL>. The specified word will 
be deleted from the text buffer. To restore the word at another position in the 
text, move the cursor to the new position and press Ctri-y to "yank" the word 
from the "kill buffer" into the text buffer at the cursor position. A word to 
the left of the cursor may be deleted using the command Esc-<BackSpace>. 


Another very useful command is "kill-line" invoked by Ctri-k, this command 
causes the characters from the cursor position to the end of the line to be 
deleted. The "newline" character at the end of the line is not deleted. 


If the cursor is not moved between multiple kill operations, the characters 
from each kill will be appended to the kill buffer. For example, an entire 
paragraph may be killed one line at a time and then the cursor may be moved to a 
new position where the paragraph may be inserted with one "yank" operation. 


The following table summarizes the delete commands learned so far: 


Ctrl-d or <DEL> = delete the character under the cursor 

Ctrl-h or <BackSpace> = delete the character to the left of the cursor 

Esc-d or Esc-<DEL> = delete a word to the right of the cursor 

Esc Ctr1-h or Esc-<BackSpace> = delete a word to the left of the cursor 

Ctr1-k = delete the characters from the cursor position to the end of the 
line 

Ctrl-y = yank the characters previously stored in the "kill buffer" into 
the text buffer at the current cursor position 


444 4% 


Before continuing with the tutorial, spend a few minutes experimenting 
with the insertion and deletion commands until you are comfortable with their 
operation. 


File Commands 


You will now be introduced to the EMACS commands which relate to file 
operations. EMACS allows files to be read into buffers for editing or viewing 
purposes. After a buffer has been edited, the contents of the buffer may be 
saved into the same file or a different file. 


The "find-file" command creates a new buffer and reads the contents of the 
specified file into the buffer. The ‘“find-file" command may be invoked by 
pressing the Ctr1-x Ctr1-f key combination, <F9> on the function key strip or 
selecting the command from the pull-down menu. If the specified file has 
already been loaded into. EMACS, the buffer containing the file will be displayed 
rather than loading the file in from disk again. 


Whenever EMACS requires the name of a file to be specified, a file 
requester window will pop-up on the display. The title of the file requester 
window describes the function to be performed with the selected filename. The 
"File Name" gadget will be active, the name of a file may be typed followed by 
<RETURN> or clicking the [ACCEPT] gadget. To examine the files in the 
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directory, click the mouse button in the file display window. The scroll-bar 
may be used to examine the contents of the entire directory, if it is larger 
than the display window. To select a file in the window, double-click on the 
name of the file or click on it once and then click on the [ACCEPT] gadget. To 
abort the file operation, click on the close-box or click on the [CANCEL] 
gadget. 


An alternative way of specifying the name of a file is to answer a prompt 
shown on the last line of the window. The prompt is not as user friendly as the 
file requester, but may be faster for some experienced users. The input method 
for filenames may be toggled, with the command "file-req-mode" on the "File" 
menu. 


Read in a text file from disk using the "find-file" command. If the 
specified file is not found on disk EMACS will display the message "(New file)" 
indicating that a new file is being edited. If the file is found then the new 
buffer containing the text file will be displayed. The contents of the buffer 
may now be edited using any of the EMACS commands. 


After the buffer has been edited, the contents of the buffer may be saved 
to disk using the “save-buffer" command, Ctri-x Ctri-s or <F10>. To save the 
buffer under a different name than was used to read the file use the command 
“write-file", Ctri-x Ctrl-w or Shift-<F10>. A new file mame may now be 
specified, the contents of the buffer will be saved to the specified file. If 
the specified file already exists on disk, the old file will be deleted and the 
new file will be stored in its place. 


The following table summarizes the file commands learned so far: 


* Ctrl-x Ctrl-f or <F9> = Read file into buffer or edit a new file 

* Ctri-x Ctrl-s or <F1@> = Save contents of current buffer to disk 

* Ctrl-x Ctrl-w or Shift-<F1@> = Save contents of current buffer to a 
specified file 


Before continuing with the tutorial, spend a few minutes experimenting 
with the file management commands introduced in this section. When you are 
comfortable with the operation of these commands continue with the tutorial. 


Buffer Commands 


An extremely useful feature of EMACS is that more than one file may be 
edited simultaneously without requiring the previous file to be saved and a new 
one loaded. This has many advantages including cutting and pasting between 
files, this will be explored later in this tutorial. 


The number of files which may be edited simultaneously is only limited by 


the amount of free memory available in the system, since each file has to be in 
memory. 
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While a file is loaded in EMACS it is referred to as a "buffer". A buffer 
has an associated buffer name which is usually the same as the name of the file, 
but does not have to be the same. A buffer usually has an associated filename 
with a full directory path to that file. A buffer may have no filename 
associated with it, this may be useful for some temporary editing which you do 
not wish to save to disk. 


At any given moment there is one buffer called the “current" buffer, this 
is the buffer in which the cursor or "point" is located. Switching from one 
buffer to another is very easy using the command “switch-to-buffer", Ctrl-x b. 
A prompt will appear asking for the name of a buffer to switch to, a default 
buffer to switch to will be displayed. To switch to the default buffer type 
<RETURN>, otherwise type the name of the buffer and then type <RETURN>. 
Whenever EMACS issues a prompt for a buffer name an auto-completion feature is 
available. To select a given buffer it is only necessary to type the first few 
characters which make it obvious which name is being requested. Typing <Space> 
will cause the current word to be completed if possible, typing <TAB> will try 
to complete the entire name and typing <RETURN> will try to complete the entire 
name and then perform the function. If EMACS can’t auto-complete it will 
display the message "[No match]" if no name exists consisting of the characters 
typed, or "[Ambiguous]" to indicate there are several possibilities and more 
characters have to be typed to determine which name is being requested. The 
"switch-to-buffer" command may also be used to create new buffers by responding 
to the prompt with a name of a buffer not currently defined in EMACS. In either 
case, after this command is successfully completed the specified buffer will be 
displayed in the current window. 


Since EMACS can have many buffers loaded at one time a command is available 
to look at a list of all the buffers loaded into EMACS. The buffer list is 
generated by the command "list-buffers", Ctr1-x Ctri-b. The buffer list command 
causes the current window to split into two windows and the buffer list appears 
in the second window. The buffer list is generated in a special buffer which is 
always named "*Buffer List*", the buffer list contains a line of data for each 
buffer in the system. The line shows the size of the buffer, the filename path 
for the buffer and if the buffer has been modified. 


Buffers may be deleted when no longer necessary using the command 
"kill-buffer", Ctrl-x k. This command prompts for the name of a buffer to be 
killed (deleted) from EMACS, the default will always be the name of the current 
buffer. To kill the current buffer type <RETURN>. If the buffer has been 
changed but not saved to a file, then a prompt will appear asking you to confirm 
the kill operation on the selected buffer. 
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The following table summarizes the buffer commands learned so far: 


* Ctr1-x b = switch to a specified buffer or create a new buffer, the 
specified buffer becomes the "current" buffer 

* Ctrl-x Ctrl-b = display a list of buffers currently available in EMACS 

* Ctr1-x k = delete the specified buffer, the contents of the buffer are 
discarded 


Before continuing with the tutorial, spend a few minutes experimenting 
with the buffer management commands introduced in this section. When you are 
comfortable with the operation of these commands continue with the tutorial. 


Window Commands 


A very powerful feature of EMACS is the ability to display many different 
buffers on the same display simultaneously. Even different parts of a given 
buffer can be displayed simultaneously. To save memory and to provide more 
Convenience, the buffers are displayed in mini-windows which are part of the 
main EMACS window. This approach is much more efficient than having many 
separate Amiga windows cluttering up the display. From this point on these 
EMACS mini-windows will be referred to simply as windows, but they should not be 
confused with the overlapping Amiga windows like the one being used for the 
entire EMACS display. 


New windows are opened by splitting the current window, using the command 
“split-window-vertically", Ctri-x 2. Both windows will now be displaying the 
same buffer. To change the view in the current window, move the cursor to a 
different part of the buffer, using the cursor movement commands. To display a 
completely different buffer in the current window the command 
“switch-to-buffer", Ctr1-x b may be used as described earlier. 


The cursor may be moved from window to window using the commands 
"next-window", Ctri-x n, or "previous-window", Ctri-x p. The cursor position is 
remembered for each window and upon returning to a window the cursor will be at 
its previous position. To quickly move the cursor to any window on the display, 
position the mouse at the desired location and click the left mouse button. 


Additional windows may be created by splitting a window one or more times. 
Any window at least 3 lines in height may be split. To delete the current 
window, use the command “delete-window", Ctrl-x 0. To restore the display to a 
one window display, use the command "delete-other-windows", Ctri-x 1. 
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Each window has three gadgets on its mode line for manipulation of the 
window, the functions performed by these gadgets may also be performed from the 
keyboard or via menu selections. The following gadgets are shown on the mode 
line of each window: 


[*] = delete window 
[v] = enlarge window 
[°] = shrink window 


To perform one of the above operations, position the mouse pointer on the 
gadget and click the left mouse button. 


The following table summarizes the window commands learned so far: 


* Ctrl-x @ = delete the current window 

* Ctr1-x 1 = return editor display to one window 

* Ctrl-x 2 = split the current window into two windows 

* Ctrl-x n = move cursor to next window (down) on the display 

* Ctr1-x p = move cursor to previous window (up) on the display 
* Gadget [*] = delete window 

* Gadget [v] = enlarge window 

* Gadget [~] = shrink window 


Before continuing with the tutorial, spend a few minutes experimenting 
with the window management commands introduced in this section. When you are 
comfortable with the operation of these commands continue with the tutorial. 


Region Commands 


As you may remember from the “terminology” section of the editor chapter, 
there are two cursors in EMACS, a visible cursor called the "point" and an 
invisible cursor called the "mark". The text between the "point" and the "mark" 
is called the "region". 


A number of useful operations may be performed on the text in the "region". 
The basic operations are: delete, copy, convert to upper case or convert to 
lower case. Before any of the operations may be performed, the "region" must be 
specified. Move the "point" to the position which is to serve as one end of the 
"region", set the "mark" at this position. The “mark" is set using Ctrl-@ (it 
is not necessary to use shift). The “mark" may also be set by double clicking 
on a character. After the "mark" has been set, move the cursor to the opposite 
end of the text you wish to designate as a “region". 
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Now that the region has been selected, one of the region operations may be 
performed. To delete the region use Ctrl-w, the region will be deleted from the 
buffer and placed into the kill buffer. As you may recall the contents of the 
kill buffer may be inserted at the current cursor position using the "yank" 
command, Ctrl-y. Using these two commands allows very convenient cutting and 
pasting text of between one or more buffers. To place a copy of the selected 
region into the kill buffer, without deleting the region, use the command Esc-w. 
To convert all of the’ lower case letters in a region to upper case use the 
command Ctri-x Ctrl-u. To convert all of the upper case letters in a region to 
lower case use the command Ctri-x Ctri-1. 


The "mark" may also be used for another purpose which is not directly 
associated with the "region". The "mark" may be used as a way of remembering 
the current cursor position so it can be returned to later. The command Ctr1-x 
Ctr1-x swaps the "mark" with the "point" thereby moving the cursor toa 
previously selected position. For example, if the "mark" is set in the middle 
of the buffer and the "point" is at the beginning of the buffer, the cursor will 
be moved to the middle of the buffer. Typing Ctri-x Ctrl-x again will move the 
"point" to the beginning of the buffer and restore the "mark" to the center of 
the buffer. 


Before continuing with the tutorial, spend a few minutes experimenting with 
the region commands introduced in this section. When you are comfortable with 
the operation of these commands continue with the tutorial. 


Compiling/Linking/Running 


This part of the tutorial will teach you how to interactively compile, link 
and run Modula-2 programs from within the EMACS editor. For this part of the 
tutorial you will need to read in the text file "CompTutorial.mod", this file is 
located on the "Boot" disk. It may be necessary to copy this file to your own 
work disk before continuing with the tutorial. Read the file into an EMACS 
buffer using the find-file command. 


The contents of the text file "CompTutorial.mod" is a very simple Modula-2 
Program which has some intentionally placed errors. These errors will prevent 
this program from being successfully compiled until the errors are fixed. 


To compile the program "“CompTutorial.mod" move the cursor into the window 
which is associated with the buffer that contains the text file and press the 
<F2> key. Since this is the first time we are using the compiler since loading 
EMACS, the message “Loading Modula-2 Compiler..." will be displayed, and the 
compiler will be read in from disk. Hereafter the compiler will not be reloaded 
and will be available for all future compile operations. If an error message is 
displayed indicating that the compiler was not loaded successfully, then this 
means that the installation may not have been performed correctly or there is 
insufficient memory to load the compiler. Either of these problems will have to 
be resolved before continuing with the tutorial. The appendix of this manual 
contains all the possible error messages along with explanations which may help 
solve the problem. Also, check the installation procedure to make sure 
everything was done properly. 
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As the compilation is performed line numbers will quickly flash on the 
screen indicating the current line being compiled. Within a second or so the 
compilation will be completed and the message "Source Compiled, 4 Errors Found." 
will be displayed on the echo line. The message indicates that the compiler has 
detected 4 errors in the source code which was compiled. 


The next step is to locate the errors, determine the reason for the errors 
and fix the errors. EMACS has a built in error tracking facility which can 
position the cursor right on or near the location of the error. To move the 
cursor to the first error, press <F1>, the cursor will be positioned on the 


line: 

MyStr) a "HTL"; 

The title bar of the EMACS window will display the compiler error message: 

Error 50: identifier not declared or not visible 

This message will also appear on the echo line of the window. However, as 
soon as any EMACS command is performed the error message will disappear from the 
echo line, the message in the title bar will remain. 

The error message indicates that the identifier "MyStr" is not defined. 
The identifier which should have been specified is "MyString" defined a few 
lines earlier in the program. So, to fix the error, change "MyStr" to 
"MyString" in this line. The new line should be: 

MyString := "Hi!"; 

Now that this error has been fixed, we have two choices: we can try to 
compile the file again or we can continue to fix any other errors remaining in 
the file. Assuming we decide to continue fixing errors, pressing <F1> will move 
the cursor to the location of the next error in the file. The cursor will be 
positioned on the line: 

WriteString(MyStr) ; 

The title bar of the EMACS window will display the compiler error message: 

Error 58: identifier not declared or not visible 

The error message indicates that the identifier "MyStr" is not defined. The 
identifier which should have been specified is "MyString" defined a few lines 
earlier in the program. Again, to fix the error change "MyStr" to "MyString" in 
this line. The new line should be: 


WriteString(MyString) ; 
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In this particular program both errors were related, but this is just a 
coincidence and in many other cases errors will not be related. 


Pressing <F1> again to position the cursor on the next error causes the 
echo line to display the message “End of Error List! (Returning to First 
Error)". This message indicates that we have stepped through all the known 
errors and the error tracker has returned to the first error in the file. It 
will not always be possible to step through the errors again, because error 
positions are sometimes lost when the text containing the error is edited. This 
is the reason why there were 4 errors found during compilation, but only two 
were encountered while stepping through the errors. 


Now that all the known errors have been fixed, attempt to compile the file 
again by pressing <F2>. This time after compilation the following message will 
be displayed on the echo line: 


Object Module Generated. Code:xxxx UData:xxxx IData:xxxx Total :xxxx 


This indicates that the file was compiled successfully and an object module 
has been generated. The positions where "xxxx" is shown will contain actual 
values, giving the size of these program components. If an error message is 
displayed, then a mistake was probably made when fixing the two errors, examine 
the lines in question to make sure they have been changed exactly as specified 
above. 


Congratulations! You have now successfully fixed the errors in this 
program and compiled the program. 


The next step to be performed before you can see the results of your effort 
is to link the program, even though the user program consists of only one 
module, the link step is still required to link in the necessary system modules. 


To make the development cycle more automated specify the name of the "main" 
module, the root of the Modula-2 program. Press <F6>, the prompt "Main Module:" 
will appear on the echo line, in response type "CompTutorial". Specifying the 
name of the "main" module this way, eliminated the need to retype it every time 
you wish to link or run the program, EMACS will remember this name until the 
name is changed or you exit EMACS. 


Now that EMACS knows the name of the "main" module, press <F3> to link the 
program. Assuming the package has been installed correctly, within a few 
seconds the link operation will be done. While linking, the names of the 


modules being linked will be displayed very briefly at the bottom of the 
display. 


Assuming the link operation was successful the size of the program will be 
displayed. 
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Code:xxxx UData:xxxx IData:xxxx Init:xxxx Total :xxxx 


Now that you have successfully compiled and linked the test program, it is 
probably a good idea to save the modified source back to disk. This way if the 
program you are developing causes the system to crash, you will not loose any of 
your work. It is also a good idea to save your work often while you are writing 
programs to avoid loosing your work in case of a power failure or some other 
uncontrollable occurrence. 


Finally, all that is left is to run the program to see if it performs the 
intended function correctly. To run the test program, press <F4>. A window 
with the title "CompTutorial" will open and the test program will print the 
message: 


You Have Successfully Completed The Tutorial! 
Hi! 


A bit further down in the window the following message will be displayed: 
== Press <RETURN> To Exit == 


This message indicates that the test program has exited and now the system 
is waiting for you to type <RETURN> so that it may close the window. This is 
done, so that you have a chance to see any output produced by the program, 
before the window is closed. You may now press <RETURN> to close the window. 
It should be noted that the window was automatically opened by EMACS and is not 
the responsibility of the user program. If the same program is run from the CLI 
this window will not be opened. 


You have now successfully completed the tutorial. You should have a very 
good feel for how to do all of the steps in the development cycle. Many other 
commands and options are available in EMACS, but your current knowledge will 
allow you to get started. 
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Modula-2 Compiler 


This section describes the Modula-2 compiler. The compiler is a complete 
implementation of Modula-2 as described in the book "Programming in MODULA-2.", 
3rd Edition by Niklaus Wirth, creator of the language. 


The compiler accepts as its input a source file containing one of the 
following types of modules: 


* Definition Module - The global specification part of a library module. 
The filename has the extension ".DEF". 


* Implementation Module - The implementation part of a library module. The 
filename has the extension ".MOD". 


* Program Module - The module which serves as_ the root of a Modula-2 
program. The filename has the extension ".MOD". 


After a successful compilation of a source file, the compiler will produce 
one of the following types of modules: 


* Symbol Module - The global specification of a library module in compact 
binary form. This type of module is produced as a result of compiling 
a definition module. The filename has the extension ".SBM". 


* Object Module - The native machine code produced as a result of compiling 


an implementation or program module. The filename has the extension 
".OBM". 


* Reference Module - An optionally generated module containing debugging 
information, for use by a source level debugger. This module may be 
generated as a result of compiling an implementation or program 
module. The filename has the extension ".RFM". 


Running the Compiler 


WARNING: Before running the compiler make sure that at least 10000 bytes of 
stack space is allocated. This can be done from the CLI by using the 
command "STACK 10000". Failure to do this may cause the compiler to 
crash while compiling. It should also be noted that if the compiler 
crashes with a stack size set to 10000 bytes, the stack size should be 
increased. Increasing the stack size will almost always solve the 
problem of the compiler mysteriously crashing. This note does not 
directly apply when using the compiler from within the EMACS editor, 
because EMACS will automatically allocate a stack for the compiler. 
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The name of the compiler program is "M2". The syntax for running the 
compiler is as follows: 


M2 [Options] [SourceFile] [SourceFile] ... 


If no source files are found on the command line, the compiler will prompt 
the user to enter the name of a source file. The prompt "Source File 
(DEF |MOD]:" will be displayed. At this point the name of a source file may be 
entered or the <RETURN> key may be pressed to exit the compiler. If a source 
filename is entered, the compiler will attempt to compile the file. After the 
file has been compiled the prompt will reappear again. 


If the compiler is invoked with one or more source filenames specified on 
the command line, the compiler will proceed to compile each source file in the 
order listed. After compiling all the source files the compiler will return to 
the CLI. To abort compilation before the compiler finishes compiling the source 
files, press CTRL-C. This will cause the compiler to return to the CLI after it 
finishes compiling the current source file. 


The compiler has many parameters which may be configured permanently using 
the M2Config utility. For more information refer to the chapter on the M2Config 
utility. 


In addition to source filenames the compiler accepts numerous command line 
options. A command line option begins with the character "-" followed by a 
letter specifying the option. An option may be a toggle switch or it may be 
followed by an additional argument. Options may be listed in any order and may 
be listed before, after or between source filenames. Options specified on the 
command line override the default configuration set by the M2Config utility. 
For toggle switches, the option will be toggled to the opposite state from the 
default configuration. The following is a list of the available compiler 
options and what they do: 


* -s <DirectoryPath> 
Specifies the name of a directory to be searched for symbol files. The 
option may be used more than once to specify additional directories to be 
searched. By default the "M2L:" directory is searched automatically, the 
directory should contain the system library modules which all programs will 
need. The path name must be terminated by the character "/" or ":". 
Example: M2 -s RAM: -s DFO@:MyLibs/ 


* -o <DirectoryPath> 
Specifies the name of the directory to which files generated by the 
compiler should be written. The path name must be terminated by the 
character */" or ":*. 
Example: M2 -o RAM: 
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-r 
Toggle the generation of run-time range checking code. Range checking 
applies to assignments of sub-range variables and to array subscripts. 


“Vv 
Toggle the generation of run-time overflow checking code. Overflow 
checking applies to INTEGER and LONGINT arithmetic. 


Toggle the generation of a reference module as a result of compiling an 
implementation or program module. The reference module contains debugging 
information for use by a source level debugger. The reference file may 
also be read by the linker to add symbols to an executable file. These 
symbols can be used by a symbolic debugger. For instructions on how to 
include the symbols in an executable file refer to the symbolic debugging 
section of the linker documentation. 


1 

Toggle the generation of 32-bit or 16-bit addressing for global variables. 
Both the DEFINITION and IMPLEMENTATION part of a library module should be 
compiled with this option in the same state. 


-k 

Toggle the generation of a zero version control key rather than the 
randomly generated version control key. When compiling a definition 
module, instead of assigning the module a randomly generated version 
control key, the key will be set to zero. This option should only be used 
when compiling a new System module. It should never be used to compile any 
other module. 


-h <Size> <Size> = 10000. .MaxRam 

Specifies the number of bytes to be allocated for the heap. If a heap 
overflow error occurs, increasing the size of the heap will resolve the 
problem. If not enough memory exists to increase the heap, split the 
module into two or more modules and compile separately. 

Example: M2 -h 159000 


-i <Size> <Size> = 1000..32766 

Specifies the number of bytes to be allocated for the identifier buffer. 
If an identifier buffer overflow error occurs, increasing the size of the 
identifier buffer will eliminate the problem. 

Example: M2 -i 24000 


-c <Size> <Size> = 1000. .32766 

Specifies the number of bytes to be allocated for the code buffer. If a 
code buffer overflow error occurs, increasing the size of the code buffer 
will eliminate the problem. 

Example: M2 -c 16000 
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* -a <Size> <Size> = 1000. .32766 
Specifies the number of bytes to be allocated for the address relocation 
buffer. If an address relocation buffer overflow error occurs, increasing 
the size of the buffer will eliminate the problem. 
Example: M2 -a 26000 


* -b <Size> <Size> = 1000..32766 
Specifies the number of bytes to be allocated for the constant buffer. If 
a constant buffer overflow error occurs, increasing the size of the buffer 
will eliminate the problem. 
Example: M2 -b 8000 


* -d <Size> <Size> = 512. .MaxRam 
Specifies the number of bytes to be allocated for the disk buffer. This 
option can be used to change the size of the buffer the compiler uses for 
reading and writing files. Specifying a larger disk buffer size may, in 
some cases, increase the speed of compilation. For each file opened by the 
compiler a disk buffer of the specified size will be allocated. 
Example: m2 -d 4896 


In the process of compiling a source file, the compiler will display the 
filenames of the symbol files that it is importing. The files that are being 
imported are preceded by "<-" indicating input. The files that are being 
generated by the compiler are preceded by "“->" to indicate that they are being 
output. 


If the compiler cannot find a symbol file that is needed to compile the 
current source file, it will print ">>Error Opening or Reading Symbol File!" 
after the name of the symbol file. This error usually occurs when the modules 
of a program are not compiled in the correct order. To fix the problem 
recompile the modules again in the proper order based on the module 
dependencies. 


When the compiler successfully compiles an implementation or program 
module, it will display the program size in bytes: 


Code: xxxxx UData:xxxxx IData:xxxxx Total: xxxxx 


Code - bytes of machine code, statements 

UData - bytes of uninitialized data, global variables 
IData - bytes of initialized data, strings 

Total - total module size, sum of the above three numbers 


Compilation Errors 


Before the compiler begins compilation it creates an error log file called 
"M2.err". The error log file is created in the "T:" directory. When an error 
is encountered during compilation, the error and its position is recorded in the 
error log file. The compiler will display "Errors in Source File!" if it finds 
any errors in the source file. After returning to the CLI, you can run the 
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error lister program "M2Err" to see exactly where each error occurred and a 


description of the error. For more information refer to the error list chapter 
of this manual. 


If the compiler is used to compile more than one source file during one 
invocation of the compiler, the errors for all of the source files compiled 
will be placed in the error log file. The error lister will display the errors 
for each source file in the order in which they were encountered. 


Each time the compiler is invoked the old error log file is deleted. 
Therefore, after several invocations of the compiler, only the errors from the 
last invocation will be displayed by the error lister. 


Compiler Return Codes 


When the compiler is invoked from inside a CLI batch file, it generates a 
return code indicating if any problems were encountered. The following is a 
list of possible return codes: 


@ - No problems were encountered 

5 - Source file(s) had compilation error(s) 

20 - Invalid command line arguments 

20 - Insufficient memory 

20 - Error log file not opened 

2@ - Source file(s) not found or failed to open 
20 - Output file(s) failed to open 


The following is an example batch file which uses the return code from the 
compiler to perform an appropriate action. For more information on batch files 
refer to the AmigaDOS user’s guide. 


MakeModule: 


.Key module/a 
M2 <module>.mod 
IF WARN 

M2Err 

ELSE 

M2Lk <module> 
ENDIF 


Example of usage: Execute MakeModule Draw 


This batch file attempts to compile the specified module. If the compiler 
returns an error code >= 5 (WARN) then the error Jister program is executed 
displaying the compilation error messages. If the compiler returns an error code 
of <5 then the compilation has been successful so the linker is invoked to 
produce an executable file. 
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Separate Compilation and Version Control 





In many older languages, it is not uncommon to accidentally link together 
old and new versions of object files. This may pass successfully through a 
linker, but the resulting executable file will not work. A lot of time may be 
wasted determining the reason for the strange behavior of the program. 


The problem described above can never occur in Modula-2, because Modula-2 
has a built in version control system. This system will prevent incompatible 
modules from being linked together. The version contro] system is the 
responsibility of the compiler and the linker. In this section the version 
control system and how it relates to the compiler will be discussed. For 
additional information refer to the linker section of this manual. 


The compiler generates a symbol module file as a result of compiling a 
definition module. In the symbol file is a randomly generated 
key(identification number). Later, when the implementation module is compiled, 
the corresponding symbol module file is read and the same key assigned to the 
symbol module is used for the object module. If the implementation module is 
changed later, the same key will again be used. The same key is used because 
changing the implementation part of a module will not directly effect any other 
module. However, when the definition module is recompiled, the resulting 
symbol file will be assigned a new key. At this point the symbol file will be 
incompatible with the old object module, because they have different keys. The 
next time another module imports your new symbol module, it will associate that 
module with the key found in this module. If the compiler imports another 
symbol module which had imported the previous version of your symbol module, the 
compiler will report a key mismatch error. This prevents a disastrous situation 
from occurring. Therefore, always recompile the implementation module after the 


definition module is compiled, as well as, recompiling the modules which depend 
on that definition module. 


A version conflict may not be detected by the compiler because it does not 
directly import any other symbol modules which have imported the older version 
of the symbol module. In such cases, the version conflict will be detected by 
the linker. The above stated solution of recompiling the dependent modules will 
resolve the problem. When all the version control keys are correct the linker 
will generate an executable file. 
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The following diagram illustrates the relationship of the source files and 
the compiler generated files: 
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Compiler Switches 


A compiler switch is a special compiler command imbedded in comments in the 
source file. The compiler switch has the following syntax: 


Switch = <Letter><"+"|"-"> 
Usage = "(*$" [Switch]{"," Switch} "*)" 


To indicate that the comment contains one or more compiler switches a "$" 
character must follow the "(*" without any spaces in between. The <Letter> 
specifies the compiler switch to be affected. The <Letter> is followed by a "+" 
to turn on the compiler switch or a "-" to turn off the compiler switch. To 
specify additional compiler switches on the same line follow the switch by a "," 
character followed by the next switch. No spaces are allowed between any of the 
characters. The following compiler switches are supported: 


$R Enable or disable the generation of range checking code. 
The following is an example of run-time range checking errors: 


(*$R+*) 
VAR 
x: [0..9]; 


y: ARRAY [10..20] OF CHAR; 
z: CARDINAL; 





BEGIN 

“2 t= 106; 
X t= Zz; (* error: value outside of sub-range bounds *) 
y[z] := "A"; (* error: index outside of array bounds *) 
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$v 


$0 
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Enable or disable the generation of overflow checking code. 
The following is an example a of run-time overflow checking error: 


(*$V+*) 
VAR 
x: INTEGER; 
y: INTEGER; 
BEGIN 
= 30000; 
30800; 
t= X + y; (* error: overflow *) 






tox x 


Enable or disable the generation of code to make local copies of dynamic 
value parameters. By disabling this option, the compiler will not 
generate the code necessary to make a_ local copy of "ARRAY OF" parameters 
that are supposed to be passed by value, it will not have any affect on 
VAR parameters. This option should be used very carefully as it may cause 
valid Modula-2 programs to operate improperly. This option may be used 
when speed of execution and more compact code is very important. In the 
following example this option is used to produce a more efficient 
procedure for determining the length of a string. This use of the option 
is safe because the original string is only read, never written to. 


(*$0-*) 
PROCEDURE StrLength(s: ARRAY OF CHAR): CARDINAL; 
VAR length: CARDINAL; 
BEGIN 

length := @; 

WHILE s[length] # @C DO 

INC( length) ; 

END; 

RETURN( length) ; 
END StrLength; 
(*$D+*) 
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$L Enable or disable the use of long absolute addressing to address global 
variables. By default the 16-bit address register relative mode is used 
to address global variables. If this switch is used for a procedure which 
is defined in the definition module then the $L switch should be specified 
in both the DEFINITION and IMPLEMENTATION module. This switch should only 
be used by experienced programmers. 


Examples: 


(*$R-,V- disable range and overflow checking *) 
(*$R+,V+ enable range and overflow checking *) 


Standard Procedures 


The following is a list of the standard procedures available in this 
implementation of Modula-2. A brief description of each procedure is given and 
an example of its use is presented. For additional information on standard 
procedures refer to a reference text on Modula-2. In this section there are 
several references to a scalar type, the following types are scalar: 
Enumeration, Subrange, BOOLEAN, CHAR, CARDINAL, INTEGER, LONGINT, LONGCARD. 
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ABS(x: INTEGER/LONGINT/REAL): INTEGER/LONGINT/REAL; 
Return the absolute value of the input parameter. The input parameter must 


be of type INTEGER, LONGINT or REAL. The result is of the same type as the 
input parameter. 


VAR 
S,. t REAL: 
i, j: INTEGER; 
BEGIN 
s ABS(s + t); 
4 t= ABS(J); 





4-12 





CAP(ch: CHAR): CHAR; 
If the input parameter is a lower case letter then 
case, otherwise, return the same character. 
VAR 
c: CHAR; 
BEGIN 
“IF CAP(c) = "Y" THEN 
ELSIF CAP(c) = "N" THEN 


END; 


Modula-2 Compiler 


convert it to upper 
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CHR(x: Type): CHAR; 


Return the character with the ordinal number x. The input parameter must 
be a scalar type. 


VAR 
i: CARDINAL; 
ch: CHAR; 

BEGIN 

oni 
ch 


CHR(10); 
CHR(i + 30); 
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DEC(VAR x: Type); 
This procedure is equivalent to x := x - 1, x must be a scalar type. Using 
this procedure produces more efficient code than the above stated equivalent 


form. Using this procedure may make the source code easier to read and 
understand. 


VAR 
i: CARDINAL; 
j: CHAR; 
BEGIN 


“DECCA); 
DEC(j); 


DEC(VAR x: Type; n: INTEGER/CARDINAL/LONGINT/LONGCARD) ; 
This procedure is equivalent to x := x - n, x must be a scalar type. Using 
this procedure produces more efficient code than the above stated equivalent 


form. Using this procedure may make the source code easier to read and 
understand. 


VAR 
i: CARDINAL; 
gj: LONGCARD; 
BEGIN 


“DEC(i, 10); 
DEC(j, i * 10); 
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EXCL(VAR x: Type; n: Type); 
This procedure is equivalent to x := x - {n}, x must be a set type andn 
must an element of the set. Using this procedure produces more efficient code 


then the above stated equivalent form. Using this procedure may make the source 
code easier to read and understand. 


VAR 
colors: SET OF [@..7]; 
num: CARDINAL; 

BEGIN 


“"EXCL(colors, 4); 
EXCL(colors, num + 2); 
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FLOAT(x: INTEGER/CARDINAL/LONGINT): REAL; 

This procedure converts a value of type INTEGER, CARDINAL or LONGINT to 
floating point. In some Modula-2 implementations the type CARDINAL may be the 
only type of parameter accepted. 


VAR 
x: REAL; 

a: CARDINAL; 

b: INTEGER; 

c: LONGINT; 


rm 


FLOAT(a + 10); 
FLOAT (b) ; 
FLOAT(c * 10D); 





+ x 
1 
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HALT; 

This procedure will cause the program to terminate execution immediately. 
This procedure may be used to exit the program when an event has occurred which 
makes it impossible to continue. Another use of this procedure is to exit the 
program from a deeply nested procedure. 


BEGIN 


th (ErrorFlag) THEN 
WriteString("Fatal Error Encountered!"); 
HALT; (* terminate program *) 

END; 
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HIGH(x: Type): Type; 
Return the highest index of a specified array, the result type is the same 


as the index type of the array. The input parameter to this procedure must be a 
static or dynamic array variable. 


PROCEDURE DoString(str: ARRAY OF CHAR); 
VAR 
buf: ARRAY [1..30] OF CHAR; 
h: CARDINAL; 
BEGIN 
h := HIGH(buf) ; (* returns 38 *) 
h := HIGH(str); (* returns (depends on input array length) *) 
END DoString; 
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INC(VAR x: Type); 
This procedure is equivalent to x := x + 1, x must be a scalar type. Using 
this procedure produces more efficient code than the above stated equivalent 


form. Using this procedure may make the source code easier to read and 
understand. 


VAR 
i: CARDINAL; 
j: CHAR; 
BEGIN 


“INC(4); 
INC(j); 


INC(VAR x: Type; n: INTEGER/CARDINAL/LONGINT/LONGCARD) ; 
This procedure is equivalent to x := x +n, xX must be a scalar type. Using 
this procedure produces more efficient code than the above stated equivalent 


form. Using this .procedure may make the source code easier to read and 
understand. 


VAR 
4: CARDINAL; 
ji: LONGCARD; 
BEGIN 


“INC(i, 10); 
INC(j, i * 10); 
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INCL(VAR x: Type; n: Type); 

This procedure is equivalent to x := x + {n}, x must be a set type and n 
must an element of the set. Using this procedure produces more efficient code 
than the above stated equivalent form. Using this procedure may make the source 
code easier to read and understand. 


VAR 
colors: SET OF [@..7]; 
num: CARDINAL; 

BEGIN 


“INCL(colors, 4); 
INCL(colors, num + 2); 
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MAX(x: Type): Type; 
Return the maximum value of a specified type. The result is of the same 
The input parameter 


type as the input parameter. 


point type. 
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TYPE 
colors 
range 

VAR 
a: INTEGER; 
b: CARDINAL; 

LONGCARD; 

REAL; 

colors; 

range; 


[19. .28]; 


H 
-z 


MAX (INTEGER) ; 
MAX (CARDINAL) ; 
MAX (LONGCARD) ; 
MAX (REAL) ; 
MAX(colors); 
t= MAX(range) ; 





~oancTH9nN»7270a0 


@ 
ce 
e 
te 
te 


(red, green, blue); 


32767 *) 
65535 *) 
4294967295 *) 
9.22337177E+18 *) 
blue *) 

20 *) 


may be any scalar or floating 
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MIN(x: Type): Type; 

Return the minimum value of a specified type. The result is of the same 
type as the input parameter. The input parameter may be any scalar or floating 
point type. 


TYPE 
colors = (red, green, blue); 
range = [10..20]; 
VAR 
a: INTEGER; 
b: CARDINAL; 
c: LONGCARD; 
d: REAL; 
e: colors; 
f: range; 
BEGIN 
a := MIN(INTEGER); (* -32768 *) 
b := MIN(CARDINAL) ; (* @ *) 
c := MIN(LONGCARD) ; (* 8 *) 
d := MIN(REAL); (* -9.22337177E+18 *) 
e := MIN(colors); (ped) *): 
f := MIN(range); (GP lsh 9) 
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ODD(x: INTEGER/CARDINAL/LONGINT/LONGCARD): BOOLEAN; 

Return TRUE if the input parameter is an odd value or return FALSE if the 
input parameter is an even value. This procedure is equivalent to the 
expression x MOD 2 # ®. 


VAR 
a: INTEGER; 
c: LONGCARD; 
f: BOOLEAN; 
BEGIN 
f := ODD(a * 13); 
= ODD(c); 


fers 
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ORD(x: Type): CARDINAL; 
Return the CARDINAL with the ordinal number of the input parameter, x must 
be a scalar type. 


VAR 
c, d: CHAR; 

e: (red, green, blue); 
a: CARDINAL; 

BEGIN 
ay: 
a 
a: 


ORD(c); 
ORD(e); 
ORD(c) + ORD(d); 
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SIZE(x: Type): CARDINAL; 

If the input parameter is a type then the result is the number of bytes 
required for a variable of the given type. If the input parameter is a variable 
then the result is the number of bytes of storage used by the variable. 


TYPE 

Node = RECORD x, y, z: REAL; END; 
VAR 

s: CARDINAL; 

n: Node; 

a: ARRAY [@..9] OF Node; 
BEGIN 
SIZE (Node) ; 
SIZE(n); 
SIZE(a); 
SIZE(n[3]); 


OHO: 
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TRUNC(X: REAL): CARDINAL; 
This procedure converts a floating point value to CARDINAL. The conversion 
is performed by truncating the fractional part of the floating point value. 


VAR 
x: REAL; 

c: CARDINAL; 

BEGIN 

(Cer 

c 


TRUNC(x) ; 
TRUNC(x * 40.4); 
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VAL(t: Type; x: Type): Type; 

This procedure is equivalent to a type transfer function, the following are 
equivalent VAL(CARDINAL, "A") and CARDINAL("A"). The first parameter specifies 
the resulting type and the second parameter is the expression to be coerced to 
the new type. This procedure may be used to make instances of type transfer 
easier to identify when reading the source code. 


VAR 
a: CARDINAL; 
b: INTEGER; 
c, d: CHAR; 
BEGIN 





‘a t= VAL(CARDINAL, c) - VAL(CARDINAL, d); 
c i= VAL(CHAR, b): 
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Pseudo Module SYSTEM 

Processor-dependent features of Modula-2 are imported from the module 
SYSTEM. The module SYSTEM is unlike other modules in that it only exists within 
the compiler. SYSTEM should not be confused with System which is a normal 
module containing the run-time support for a Modula-2 program. 


Most of the procedures defined in the module SYSTEM are implemented as 
inline code for purposes of efficiency. Since these procedures do not require a 
subroutine call, they are much more efficient than if the same function was 
performed by a user defined procedure. 


The module SYSTEM in this implementation of Modula-2 can be considered to 
have the following definition module: 


DEFINITION MODULE SYSTEM; 


TYPE 
BYTE; 
WORD; 
LONGWORD; 
ADDRESS = POINTER TO BYTE; 


PROCEDURE ADR(VAR x: Type): ADDRESS; 

PROCEDURE TSIZE(x: Type): CARDINAL; 

PROCEDURE SHORT(x: LONGINT): INTEGER; 

PROCEDURE LONG(x: Type): LONGINT; or LONG(high, low: INTEGER): LONGINT; 
PROCEDURE SHIFT(x: Type; n: INTEGER): Type; 

PROCEDURE REG(reg: CARDINAL): LONGINT; 

PROCEDURE SETREG(reg: CARDINAL; value: Type); 

PROCEDURE INLINE(x: CARDINAL/INTEGER,...); 


END SYSTEM. 


A detailed description of each type and procedure defined in the pseudo 
module SYSTEM follows. 


4-29 





Modula-2 Software Construction Set Reference Guide 


BYTE 


The type BYTE represents the smallest unit of addressable storage, on a 
68000 computer. A BYTE is defined as 8-bits and may represent values between @ 
and 255. No operations may be directly performed on this type, other than 
assignment. A variable or procedure parameter of type BYTE may be assigned an 
expression of any type which is exactly 8-bits long. This allows a CHAR, 
ENUMERATION or a user defined set to be assign to a BYTE directly. Ifa 
procedure parameter is declared as an ARRAY OF BYTE then the actual parameter 
may be of any type. An array of BYTE will be mapped onto the actual parameter. 
For example accessing element zero of an array will return the first byte of the 
actual parameter. If an operation needs to be performed on a variable of type 
BYTE, it must first be coerced into another type such as CARDINAL. It should 
also be noted that a BYTE may reside at any address odd or even. The following 
examples illustrate how BYTE can be used. 


VAR 
flag: BYTE; 
ch : CHAR; 


bits: SET OF [0..7]; 
val : CARDINAL; 





BEGIN 
“Flag tm ch} 
flag bits; 
flag BYTE(CARDINAL(flag) + val); 


Val ‘t= TSIZE(BYTE); (* = 1 *) 
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WORD 

The type WORD is defined as two bytes, containing 16-bits, therefore, it 
can only be used to represent values between @ and 65535. No operations may be 
directly performed on this type, other than assignment. A variable or procedure 
parameter of type WORD may be assigned an expression of any type which is 
exactly 16-bits long. This allows an INTEGER, CARDINAL, BITSET, subrange or a 
user defined set to be assign to a WORD directly. If a procedure parameter is 
declared as an ARRAY OF WORD the actual parameter may be any type at least 
16-bits in length. An array of WORD will be mapped on top of the parameter 
regardless of the type of parameter being passed. If an operation needs to be 
performed on a variable of type WORD, it must first be coerced into another type 
such as CARDINAL. Finally, a WORD must be aligned on a word boundary (an even 
address). This is a requirement of the 680008 processor, if a read or write 
operation is performed on a WORD at an odd address, an address error exception 
will be generated by the processor. The following examples illustrate how WORD 
can be used. 


VAR 
count: WORD; 
size : CARDINAL; 
bits : SET OF [@..12]; 
mask : BITSET; 
year : [1980..2001]; 
breg : POINTER TO WORD; 
BEGIN 





year; 
CARDINAL(count) * size; 
size := TSIZE(WORD); (* = 2 *) 
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LONGWORD 

The type LONGWORD is defined as four consecutive bytes, containing 32-bits, 
therefore, it can be used to represent values between @ and 4,294,967,295. No 
operations may be directly performed on this type, other than assignment. A 
variable or procedure parameter of type LONGWORD may be assigned an expression 
of any type which is exactly 32-bits long. This allows a LONGINT, LONGCARD, 
pointer, procedure variable or a user defined set to be assigned to a LONGWORD 
directly. A parameter declared ARRAY OF LONGWORD maps an array of LONGWORD 
elements over the actual parameter, regardless of the structure of the actual 
parameter. If an operation needs to be performed on a variable of type 
LONGWORD, it must first be coerced into another type such as LONGCARD. Finally, 
a LONGWORD must be aligned on a word boundary, an even address. This is a 
requirement of the 68000 processor, if a read or write operation is performed on 
a LONGWORD at an odd address, an address error exception will be generated by 
the processor. The following examples illustrate how LONGWORD can be used. 


VAR 
Iword: LONGWORD; 
size : LONGINT; 
bits : SET OF [0..31]; 
breg : POINTER TO WORD; 
BEGIN 


lword := size; 
lword bits; 
Iword breg; 
size := TSIZE(LONGWORD); (* = 4 *) 
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ADDRESS 


The type ADDRESS is defined as a pointer to a BYTE. This type is useful 
for performing address calculations and manipulating pointers to objects of 
different types. The type ADDRESS has the unique property of being compatible 
with any user defined pointer type, in addition for purposes of address 
calculation it is also compatible with LONGCARD. One common use of ADDRESS is 
as a parameter to a block of memory which contain different types of data. The 
following example demonstrates how to use the ADDRESS type. 


VAR 
heapPtr: ADDRESS; 
winPtr: POINTER TO Window; 
cPtr : ADDRESS; 
ch : CHAR; 


PROCEDURE Alloc(size: LONGCARD): ADDRESS; 
BEGIN 

INC(heapPtr, size); 

RETURN heapPtr ; 





END Alloc; 
BEGIN 
“winPtr := Alloc(LONGCARD(TSIZE(Window))); 
ch; (* assign CHAR to BYTE *) 





CRtr= =: 
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ADR(VAR x: Type): ADDRESS; 

The ADR procedure returns the absolute address of a specified object. The 
object may be a variable, procedure, or a string constant. If the object is a 
variable it may be of any type and may be defined as either a global or local 
variable. A string constant is assigned a memory location by the compiler and 
is therefore associated with an address. The address associated with a 
procedure is that of the first instruction of a procedure. The following 
examples illustrate the usage of the procedure ADR. 






VAR 

x : CARDINAL; 

a : ADDRESS; 

p : POINTER TO ARRAY [@..255] OF CHAR; 
BEGIN 

a := ADR(x); 

a := ADR(p [x]); 

a := ADR("Hello World!"); 
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TSIZE(x: Type): CARDINAL; 

The TSIZE procedure returns the size in bytes of a specified type 
identifier. This will be the same as the size of a variable of the same type. 
The following examples illustrate the usage of the procedure TSIZE. 


TYPE 
str = ARRAY [@..255] OF CHAR; 
rec = RECORD x,y,z: CARDINAL; END; 
VAR 
sz : CARDINAL; 
BEGIN 
“Sz t= TSIZE(str); 





SZ TSIZE(rec) ; 
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SHORT(x: LONGINT): INTEGER; 

The procedure SHORT converts a LONGINT or LONGCARD to an INTEGER result 
This operation is performed by truncating the high-order bits. Range checking 
is ignored for this operation. 


VAR 
si : INTEGER; 
1i_: LONGINT; 


BEGIN 
“si t= SHORT(1i); 
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LONG(x: Type): LONGINT; or LONG(high, low: INTEGER): LONGINT; 

The procedure LONG has two forms. The first form is selected by specifying 
only one argument, this argument may be of any scalar type. The result is a 
LONGINT representation of the argument. The second form is selected by 
specifying two arguments, both arguments must be INTEGER or CARDINAL. The 
result is a LONGINT with the high-order bits containing the first argument and 
the low-order bits containing the second argument. The following example 
demonstrates the usage of both forms of this procedure. 


VAR 
x,y: CARDINAL; 
val: LONGINT; 


ch : CHAR; 
BEGIN 
“yal := LONG(ch); 
val LONG(x) ; 





val := LONG(x,y); 
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SHIFT(x: Type; n: INTEGER): Type; 

The SHIFT procedure is used to shift left or right the bits of the argument 
passed to it. The first argument to SHIFT is a scalar type such as CARDINAL, 
LONGCARD, etc. The second argument is an INTEGER specifying the number of bits 
to shift and in which direction. If the second argument is positive then a left 
shift is performed. If the second argument is negative then a right shift is 
performed. The result of the procedure is the shifted value, the type of the 
result is the same as the type of the first argument. It should be noted that 
if the type being shifted is a signed type (i.e. INTEGER, LONGINT), the shift 
will be arithmetic and if the type is unsigned (i.e. CARDINAL, LONGCARD), a 
logical shift will be performed. The difference between the two types of shifts 


if in the handling of the sign bit. The following example demonstrates use of 
the SHIFT procedure. 


VAR 
b,c : BITSET; 
x,y : INTEGER; 
BEGIN 


t= SHIFT(c,4); (* shift left by 4 bits *) 
HIFT(c,-1); (* shift right by 1 bit *) 
SHIFT(x, y); (* shift x by y bits left or right *) 





b 
b 
x 
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REG(reg: CARDINAL): LONGINT; 

The procedure REG causes the contents of a specified 68800 processor 
register to be returned as a LONGINT value. The argument to this procedure is a 
constant number between @ and 15. If the number is between @ and 7 it specifies 
a data register D@-D7 and if the number is between 8 and 15 it specifies an 


address register AQ-A7. The following example demonstrates the use of the REG 
procedure. 


VAR 
status : LONGINT; 
stackPtr: ADDRESS; 
BEGIN 


“Status := REG(7); (* get 07 *) 
stackPtr := ADDRESS(REG(15)); (* get SP (reg A7) *) 
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SETREG(reg: CARDINAL; value: Type); 

The procedure SETREG performs the opposite operation from the procedure 
REG, it allows the user to load a value into a specified 68902 processor 
register. The first argument to the procedure is a constant INTEGER specifying 
the register to be loaded, 8 to 7 or 8 to 15. The register number corresponds 
to D@..D7 and AQ@..A7 respectively. The second argument is the value to be 
loaded into the register. The value may be of any type which is exactly 32-bits 
long. The specified example uses the procedure SETREG. 


CONST D4 = 4; A7 = 15; 
VAR 

oldStackPtr: ADDRESS; 
BEGIN 


"SETREG(A7, oldStackPtr); (* restore the old stack ptr *) 
SETREG(D4, 1000000); 
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INLINE(x: CARDINAL/INTEGER,...); 


The INLINE procedure is useful for inserting machine language instructions 
into a Modula-2 procedure. The arguments to INLINE are CARDINAL or INTEGER 
values to be stored into the instruction stream, beginning at the current 
location. There is no limit to the number of arguments that can be specified, 
separated by commas. The following example demonstrates how INLINE may be used. 


CONST 
BreakPt = 4AFCH; (* ILLEGAL instruction *) 
BEGIN 
ae eab 


INLINE (BreakPt); (* Force debugger to stop here! *) 
C ta ds 
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Modula-2 Data Types 


The compiler supports all standard Modula-2 types. This implementation also 
adds several new types to take advantage of the 68000 processor. The following 
is a description of all the types supported by the compiler, excluding those 
defined in the pseudo-module SYSTEM, those are described in the previous section 
about the module SYSTEM. The descriptions associated with each type, only 
describe information relevant to this implementation, for a full explanation of 
a particular type refer to a textbook on Modula-2. 


set 


enumeration 


array 


record 


procedure 


pointer 


subrange 


BOOLEAN 


BITSET 


CARDINAL 
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A set may contain up to 32 elements in the range @ to 31. The 
range specified determines the number of bytes needed to represent 
a set, since each element is represented by one bit. 

SET OF [@..7] - requires one byte 

SET OF [@..15] - requires two bytes 

SET OF [@..31] - requires four bytes 


An enumeration type may be defined with up to 256 possible 
constants. An enumeration always occupies one byte. 


The total size of an array must not exceed 32K bytes. The size of 
the array is rounded up to an even number of bytes. 


The size of a record is always rounded up to an even number of 
bytes. 


The procedure type is a pointer to the executable code of a 
procedure. The size of this type is the same as for a pointer 
type, four bytes of storage. 


The pointer type points to an object of a specified type. The 
size of the pointer type is always four bytes. 


The bounds of a subrange type cannot be larger than the range 
-32768 to 32767. The size of this type is two bytes. 


A variable of type BOOLEAN will always contain FALSE(@) or 
TRUE(1), it is improper to represent TRUE by any value other than 
one. The size of a this type is one byte. 


A form of a set defined as a SET OF [@..15]. The type occupies 
two bytes of storage. 


Represents the range of values between @ and 65535. The CARDINAL 
type is assignment compatible with INTEGER, LONGINT and LONGCARD. 
The assignment to INTEGER does not cause any change in the bit 
pattern. An assignment to LONGINT or LONGCARD causes the value to 
be zero extended. The type occupies two bytes of storage. 


CHAR 


INTEGER 


LONGCARD 


LONGINT 


PROC 


REAL 
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Represents the range of character values between @ and 255. The 
type occupies one byte of storage. 


Represents the range of values between -32,768 and 32,767. The 
number is stored in two’s complement form. The high-bit holds the 
sign of the number. The INTEGER type is assignment compatible with 
CARDINAL, LONGINT and LONGCARD. An assignment to CARDINAL causes 
no change in bit pattern. The assignment to LONGINT or LONGCARD 
is performed using sign extension. The type occupies two bytes of 
storage. 


Represents the range of values between @ and 4,294,967,295. A 
LONGCARD is assignment compatible with INTEGER, CARDINAL and 
LONGINT. An assignment to INTEGER or CARDINAL is performed by 
truncating the upper 16-bits of the bit pattern. An assignment to 
LONGINT causes no change in the bit pattern. The type occupies 
four bytes of storage. 


Represents the range of values between -2,147,483,648 and 
2,147,483,647. A LONGINT is assignment compatible with INTEGER, 
CARDINAL and LONGCARD. The assignment to INTEGER and CARDINAL is 
performed by truncating the upper 16-bits of the bit pattern. An 
assignment to LONGCARD causes no change in the bit pattern. The 
type occupies four bytes of storage. 


Procedure type compatible with procedures with no parameters and 
no return parameter. Occupies four bytes of storage. 


The Motorola Fast Floating Point format is used to represent REAL 
numbers. The range of values which can be represented by this 
format is between -9.22337177E+18 and 9.22337177E+18. The REAL 
type occupies four bytes of storage. 


Long Literal Constants 


When specifying literals of type LONGINT or LONGCARD the number must be 
followed by the character "D", meaning double or long. For example: 


10 - LONGINT or LONGCARD 
-10 - LONGINT 
131072D - LONGINT or LONGCARD 
21474836470 - LONGINT or LONGCARD 
al - INTEGER or CARDINAL 
aL - INTEGER 
-32000 - INTEGER 
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Identifiers 


The compiler accepts identifiers up to 255 characters long. All characters 
are significant. Modula-2 specifies that identifiers must consist of only 
alphanumeric characters, this implementation also allows the underscore 
character "_" to be used in identifiers. The underscore character is not 
accepted by most other implementations of Modula-2, so portability must be 
considered before using this feature of the compiler. 


Size Limitations 


This section describes the code and data limitations of the Modula-2 
compiler. The specified limitations apply only to an individual module. Since 
most programs consist of more than one module, the specified limitations will 
rarely be encountered. If a limitation is encountered it can always be overcome 
by splitting a module into two or more smaller modules. It is very important to 
understand that the final executable file generated by the linker has no 
limitations on either code or data, except the memory of the target system which 
will be used to execute the program. 


Name Maximum Size/Module 
Global Variables, Data 32766 
Statements, Code 32766 
Strings, Data 32766 
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String Literals 


This implementation of Modula-2 provides a much more flexible facility for 
specifying string literals than is available in most other implementations. 
Therefore, before using this very useful facility, portability considerations 
should be taken into account. The following table describes the special 
commands which may be imbedded into a string. Each command begins with a LING 
character. These commands are almost identical to the commands available in the 
"C" language. 


Command Description 


\(LF] The string continues on the next line. 

\n Put line feed (LF) character into string. 

\t Put horizontal tab (HT) character into string. 
\b Put backspace (BS) character into string. 

\r Put return (CR) character into string. 

Nf Put form feed (FF) character into string. 

\v Put vertical tab (VT) character into string. 


\x[n][n] | Put the character represented by a hexadecimal code. 
\[n][n][n] Put the character represented by an octal code. 
\<AnyChar> Place the character after the "\" into string. 


The following examples demonstrate how the various special commands are 
translated by the compiler: 


"Hello World! \n" Hello World!<LF> 
"\fThe End\\\r" <FF>The End\<CR> 
"\x32\x35\t\x30\x31\n" 25<HT>G1<LF> 
"\181 TO \132" ATOZ 

my\n \ 


When translating a program from a different Modula-2 compiler, the source 
may have used the character constant "\". This will not compile because the \ 
would case the next character " to be placed into the string. To fix the problem 
replace the "\" with "\\" or use the ASCII value 134C. 
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FORWARD Procedure 


To facilitate referencing the name of a procedure identifier before it is 
defined, a procedure should be declared as FORWARD. The following example 
demonstrates the use of a FORWARD procedure: 


PROCEDURE GetNode(): NodePtr; FORWARD; 


PROCEDURE Tree; 
VAR n : NodePtr; 
BEGIN 


n t= GetNode(); 
END Tree. 


PROCEDURE GetNode(): NodePtr; 
BEGIN 


END : GetNode; 


CODE Procedure 


The CODE procedure is a way of inserting a short instruction sequence into 
the body of a procedure or module. A CODE procedure does not have a body part 
like a normal procedure. Its body is represented by a 16-bit code, this code 
will be inserted into the instruction stream wherever this CODE procedure is 
called. A CODE procedure can be specified as having arguments, in this case the 
arguments will be evaluated as usual and placed on top of the stack. A simple 
example of its use is contained in the following code fragment: 


PROCEDURE BreakPt; CODE @4AFCH; (* ILLEGAL instruction *) 
PROCEDURE Buggy; 


Break ts (* Causes a break point to be inserted into code *) 


X t= Y} 
END Buggy. 
Run Time Error Checking 


Certain types of errors cannot be detected at compile time, therefore, the 
compiler can be instructed to perform additional error checking at run time. 
The types of run-time error checking supported are arithmetic overflow, array 
index and subrange bounds checking. For information on how to enable or disable 
run time error checking refer to the sections on compiler switches and command 
line options. 
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Arithmetic overflow checking applies to operations involving the signed 
types INTEGER or LONGINT. An arithmetic overflow error occurs when an operation 
involving two INTEGERS causes the result to exceed the minimum or maximum value 
which can be represented by the type INTEGER. Arithmetic overflow checking is 
implemented by using the MC68@@0 TRAPV instruction. 


Array bounds checking causes the index into an array to be checked against 
the bounds of the array. If the index exceeds the bounds of the array a run 
time error occurs. Array bounds checking is implemented using the MC68000 CHK 
instruction. 


Subrange bounds checking causes the value being assigned to a variable of a 
subrange type to be checked for being within the bounds of the subrange type. 
Subrange bounds checking is implemented using the MC68@00 CHK instruction. 


The run-time error checking options of the compiler should not be enabled 
unless the program imports the module RunTimeErrors or the program will be used 
with a source level debugger or a symbolic debugger. If a run-time error occurs 
and one of the above tools in not used the Amiga will put up a "Software Error" 
requester and suspend the program. 


Register Usage 


This section deals with the run-time register organization of Modula-2 
programs. Registers designated as scratch do not need to be preserved by 
procedures, this includes registers D@ and D1. 


DO - Lower 32-bits of function call result 

D1 - Upper 32-bits of function call result(64-bit results only) 
D2 - scratch register 

03 - scratch register 

D4 - scratch register 

D5 - scratch register 

Dé - scratch register 

D7 - scratch register 


A@ - scratch register 

Al - scratch register 

A2 - scratch register 

A3 - scratch register 

A4 - module static variables base pointer 

A5 - stack frame pointer 

A6 - scratch register (used in Amiga library calls) 
A7 - top of stack pointer 


4-47 


Modula-2 Software Construction Set Reference Guide 


Short And Long Addressing 





The compiler supports two methods of accessing static variables within a 
module. The first method is most efficient when a module has a lot of 
references to static variables, the static variables are referred to by 16-bit 
register A4 relative addressing. This requires only 16-bits to encode the 
address of a variable, this method is both space and time efficient. The 
overhead in using the register relative addressing is that the A4 register has 
to be preserved and loaded on entry into a procedure at scope level 2. The 
second method of referencing static variables is using 32-bit absolute 
addressing, this method requires both more space and time for each reference. 
However it does not require the register A4 to be loaded. 


For purposes of symbolic debugging it may be useful to use the 32-bit 
absolute addressing. By using 32-bit absolute addressing the debugger will be 
able to display symbols for the variables being referenced, most debuggers 
cannot determine the symbol when the 16-bit register A4 relative addressing is 
used. 
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Modula-2 Linker 


This section deals with the linker program included in this package. The 
purpose of the linker is to combine object modules into one executable file 
acceptable to the AmigaDOS operating system. 


The linking process for a Modula-2 program is much simpler than for many 
earlier languages such as "C" or "PASCAL". To link a program it is only 
necessary to know the name of the "main" module. Any modules required to link 
the "main" module are linked in automatically without being explicitly 
specified. 


Running the Linker 


The name of the linker program is "M2Lk". The syntax for running the linker 
is as follows: 


M2Lk [Options] <MainModule> [MainModule] ... 


The name of the module to be linked must be specified on the command line. 
The name of the main module should correspond with the name of the object 
module, excluding the extension ".OBM". If more than one "MainModule" is listed 
each one will be linked in the order they are listed on the command line. While 
linking more than one "MainModule" it is possible to interrupt the linking 
process by pressing CTRL-C. The linking process will stop as soon as the 
current "MainModule" has been linked. 


The linker will display names of the object files being linked in. Each 
name will be preceded by the symbol "<-" to indicate input. If the linker has 
been instructed to generate symbols, the names of symbol or reference files that 
have been successfully read will be displayed preceded by the symbol "Sym" to 
indicate symbolic information. After the linking is complete the linker will 
display the name of the executable output file preceded by a "->" to indicate 
output. The size in bytes of each section of the executable file will be 
displayed on the next line. The explanation for the size information displayed 
by the linker is as follows: 


Code - executable code, statements 

UData - unitiailized data, static variables 
IData - initialized data, string literals 

Init - size of module initialization jump table 
Total - total size of the executable file 
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Before, after or between the names of the modules to be linked, one or more 
command line options may be specified. A command line option begins with the 
character "-" followed by a letter specifying the option. An option may be a 
toggle switch or it may be followed by an additional argument. The following is 
a list of the available linker options and the purpose of each option: 


* -s <DirectoryPath> 
Specifies the name of a directory to be searched for object files(.0BM), 
symbol files(.SBM), or reference files(.RFM). The option may be used more 
than once to specify additional directories to be searched. By default the 
"M2L:" directory is searched automatically, the directory should contain 
the system library modules which all programs will need. 
Example: M2Lk Draw -s RAM: 


* -o <DirectoryPath> 
Specifies the name of the directory to which files generated by the linker 
should be written. 
Example: M2Lk Draw -o RAM: 


ated 
Instructs the linker to add symbols to the executable file. This allows a 


symbolic debugger to display the names of variables and procedures while 
debugging. 


Example: M2Lk Draw -d 


* a 
This option is a modifier for the "-d" option. This option causes the 
linker to prefix each symbol with the name of the module in which the 
symbol is defined. For example if the symbol "WriteLn" is defined in 
module "InOut" the symbol stored will be "InOut_WriteLn". This option may 
be useful when symbols with the same name are defined in different modules. 
Example: M2Lk Draw -d -a 


This option instructs the linker to add a special debug block to the 
executable file. This option is used when the program may be executed from 
the source level debugger. The resulting executable file will be a bit 
larger than normal, but this does not increase the amount of memory used by 
the program at run-time. 

Example: M2Lk Draw -g 


The Version Control System 





The compiler section of this manual described the version control system 
used by this implementation of Modula-2. The linker is an integral part of this 
version control system. The linker will not generate an executable file unless 
all of the modules that are linked together have compatible version control 
keys. 


Modula-2 Linker 


The linker will display an error message if it finds a module with an 
invalid version control key. To rectify the problem, one or more modules will 
need to be recompiled. The modules that may need to be recompiled are dependent 
on the module hierarchy of the program being linked. 


Symbolic Debugging 


Programs written in Modula-2 may be debugged using an assembly language 
debugger. If the debugger is capable of displaying symbols, then it is called a 
symbolic debugger. Using a symbolic debugger will greatly enhance the ease with 
which debugging can be performed. 


If the debugger supports symbols, the linker can be instructed to output 
the symbols to the executable file. The debugger will read in the symbols and 
the user will be able to refer to variables and procedures by name rather than 
by address, this greatly simplifies the debugging process. The linker command 
line options "-a" and "-d" are used to instruct the linker to add symbols to the 
executable file. 


The linker will search for a reference file (extension .RFM). The 
reference file is generated by the compiler when the "-g" option is specified on 
the compiler command line. Refer to the chapter on the compiler for further 
information about reference files. If the reference file is not found, the 
linker will search for a symbol file (extension .SBM). If the symbol file is 
not found no symbols will be added for that specific module. If a symbol or 
reference file is found, the linker will read in the names of the procedures and 
the names of the global variables and place the symbols into the executable 
file. This action is performed for each module linked in to the program. 


Run-Time Support Library 


To provide run time support for a Modula-2 program, the linker implicitly 
links in a module called System. The contents of this module are explained in 
another section in this manual. 


Executable File Structure 





The executable file generated by the linker has the following format. The 
code and data sections of each module occupy one hunk in the executable file. 
The first hunk in each executable file contains a jump table to the module body 
of each module. The last jump in the table is a jump to the module body of the 
"main" module. The linker places each module in a separate hunk allowing a 
large program to be loaded into a system where the memory has been fragmented 
into many small pieces. 
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It should also be noted that the size of the executable file is larger than 
the amount of memory actually occupied by the program once loaded into memory. 
This is because the file contains relocation information necessary to load the 
program, this information is automatically discarded when the program is loaded. 
When symbols are added to an executable file, the size of the file will also 
increase. However when the program is executed outside of a debugger it will not 
require any additional memory to run, the AmigaDOS loader does not load the 
symbols into memory. 


Linker Limitations 


The linker has no size limitations on either the number of modules which 
can be linked nor on the size of the final executable file. The amount of 
memory in the system does not limit the size of the program which may be linked, 
because only one object module is held in memory at any one time. 
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EMACS Editor 


The editor included in this package is a full-screen display editor modeled 
after EMACS, the editor created by Richard M. Stallman at the MIT Artificial 
Intelligence Laboratory. 


In addition to providing many commands to support editing of Modula-2 
source files, EMACS has an integrated Modula-2 Compiler and Linker. By 
integrating these components together this package provides an extremely 
productive environment for developing programs in the language Modula-2. 


Running the Editor 


The name of the editor program is "M2Ed" and the command line syntax for 
the program is as follows: 


M2Ed [FileName] [FileName] ... 


The [FileName] specifies the name of a file to be loaded into a buffer. 
The files specified on the command line will be loaded into buffers upon entry 
into the editor, the editor window will display the buffer of the last file 
loaded. If no filenames are listed on the command line the editor displays a 
default buffer called "*Scratch*" in the window. 


The Editing Environment 


This subsection describes the basics that are needed to understand the 
EMACS editing environment. 


The EMACS window 

This is the window the EMACS program uses for all input and output 
activities. This window is opened on the WorkBench and it may be resized, moved 
or rearranged as any other Amiga window. Most references to a window in this 
document are not referring to the EMACS window, rather they are referring to the 
sub-windows created within the EMACS window. These sub-windows are used to 
simultaneously display the contents of one or more edit buffers. 


The edit buffer 

This is a temporary storage area for lines of text being edited. In this 
document the edit buffer is usually referred to as the "buffer" or "current 
buffer", the latter term referring to the buffer currently being edited. 


When in EMACS, there is at any particular time just one particular buffer 
where editing occurs, the current buffer. Editing consists of adding or 
deleting characters at various places in the buffer. 


At any particular time in the editing process the buffer may be empty, or 
it may contain a number of lines of text typed in the by the user or loaded from 
a disk file. 


While in EMACS you may create as many buffers as necessary limited only by 
the amount of memory in the system. Each buffer may be manipulated 
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individually, with no effect on any other buffer. A buffer may be erased, 
loaded with text from a file, written to a specified file or many other possible 
operations may be performed on a buffer. 


A text file 

This is a file containing ASCII characters which may be read into a buffer 
for editing purposes. Editing a file using EMACS consists of loading the file 
into a buffer, making changes to the buffer and then writing the buffer back to 
the file from which it was read or another file if desired. 


Since editing of the buffer does not change the original file stored on 
disk it is important to save changes prior to exiting EMACS. EMACS will issue a 
warning if you attempt to leave the program while one or more buffers have not 
been saved to their corresponding files. It is a good idea to save your changes 
to the file from time to time while you are working to minimize loss of data 
which may result if a power loss is experienced during the editing session. 


The edit window 
This a view into the contents of a specific edit buffer. Multiple edit 


windows may be setup to allow viewing of several different buffers or different 
parts of the same buffer simultaneously. 


The number of edit windows which can be open at the same time depends on 
the number of lines on the display. Each edit window is at least one text line 
in height. The edit windows are separated from each other by a solid line 
containing information relating to the contents of that window. 


EMACS Terminology 


The following terms are used throughout this document to describe functions 
available in EMACS. 


BUFFER 


A temporary storage area used for editing the contents of files. The 
buffer in which the cursor is currently located is called the current buffer. 


POINT 

The current cursor position in the buffer is referred to as the "point". 
Deletion and insertion operations take place at the point. When moving from one 
buffer to another the position of the point is remembered so that when you 
return to that buffer the cursor will return to the same position. 


MARK 

The mark is similar to the point except that it is invisible. To set the 
mark to a specific location in the buffer, the point is moved to the desired 
location and a set-mark-command (Ctrl1-@) is issued. The mouse may be used to 
set the mark by double-clicking the left button on the desired location. The 
mark is also set implicitly by other EMACS commands. 


REGION 
The text between the point and the mark is called the region. EMACS allows 
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operations to be performed on a region, such as copying a region or killing a 
region. 


PARAGRAPH 

EMACS has been given some primitive word processing capabilities to format 
text. In EMACS, a paragraph is considered to be a block of text separated above 
and below by a blank line or by a line which begins with a blank character. The 
first line of a paragraph may begin with one or more white spaces. 


KILL 

Commands that specify "kill" rather than "delete" place the characters 
which are deleted into a kill buffer. The text in a kill buffer can be inserted 
into a normal buffer using the yank command. 


YANK 


Insert the contents of the kill buffer into the current buffer at the 
point. If the kill buffer is empty then nothing happens. 


WINDOW 

A number of horizontal lines of text which provide a view into a buffer. 
Different parts of one buffer or multiple buffers may be viewed simultaneously 
by opening several windows. Windows are created by splitting an existing window 
into two windows. After finishing with a window it may be collapsed down into 
another window. 


MODE LINE 


This is a solid line which appears below each window on the display. This 
line contains the following information: 


* Window Gadgets - Three gadget which operate on the window are displayed. 
[*] = delete window 
[v] = enlarge window 
*] = shrink window 
Status Indicator - If the characters ’**’ appear on the line then changes 
have been made to the buffer, but the changes have not been saved to a 
file. 
Modes - Currently enabled edit modes are displayed in parenthesis. 
Buffer Name - The name associated with the buffer, followed by a colon. 
File Path - The absolute file path associated with the given buffer. If 
the buffer has not been read from or written to any file, "null 
pathname" is displayed to indicate that no file is associated with the 
buffer. 


* 


* * * 


ECHO LINE 

This is the line at the bottom of the display which is used by EMACS to 
communicate with the user. EMACS will display messages on the echo line as well 
as prompt the user to enter additional information at various points in the 
editing process. 


KEY BINDING 
The association of a user typed key combination with a command or function 


6-5 


Modula-2 Software Construction Set Reference Guide 


available in EMACS. Editor functions are not “hard wired" to the key 
combinations and may be completely redefined to the user’s preferences. 


Keyboard Commands 


EMACS based editors have been around for a long time and have had the 
benefit of input from thousands of experienced and novice users. This 
experience has been used to provide a very efficient and easy to learn editing 
environment. Since EMACS originated on systems which did not have alternative 
input devices such as the mouse, it has been designed to take maximum advantage 
of the keyboard. The default key bindings used in EMACS are a result of years 
of refinement and in most cases the key binding is logical because of its 
position on the keyboard or because the label on the key is related to the 
function it performs. However, to provide the maximum user convenience all key 
combinations are completely reconfigurable by the user. Those users who wish to 
avoid using the keyboard may use the mouse and the pull-down menus for many of 
the commands available from the keyboard. However, if speed of editing is an 
important consideration, it will eventually be necessary to master the keyboard. 


Most EMACS key bindings are invoked through one of the following methods: 


* Ctri-<Char> = To invoke a command, press and hold the key labelled <CTRL> 
followed by the specified character. 

* Esc-<Char> = To invoke a command, press the key labeled <ESC>, release 
the key, then type the specified character. 


The key labelled <CTRL> is called the control key. While the key labeled 
<ESC> is known as the escape key or meta key. 


The following are examples of valid EMACS key combinations: 


Ctri-p Press and hold the control key and type "p". 

Esc-a Type the escape key and then type "a". 

Ctri-x f = Press and hold the control key and type "x", then release the 
control key and type "f". 


ou 


A very important command to remember is the abort command, this command is 
"hard wired" to the Ctri-g key combination. This command may be invoked from 
anywhere in EMACS, including a partially entered key combination or a prompt. 
This command is very useful in many situations. For example if the first part 
of a key combination has been typed, but the user does not remember the complete 
key combination, the command may be aborted rather than invoking the wrong 
command which may have an undesirable effect. 


A very useful command is available for checking the function which will be 
executed when a given key combination is pressed. This command is invoked via 
the <HELP> key. After pressing the <HELP> key a prompt will appear, type any 
valid key combination and the function associated with that key combination will 
be displayed. 


At some point it will probably be necessary to exit EMACS and return to the 
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CLI, the command to exit is Ctri-x Ctri-c. Before exiting EMACS will check if 
any buffers have been modified, but not saved to disk. If this is the case, 
EMACS will prompt the user to save the buffers before exiting. 


In addition to the normal keyboard keys the arrow keys, function keys and 
other non alpha-numeric keys have special meaning when using the EMACS editor. 


The arrow keys, both shifted and unshifted, have been assigned EMACS cursor 


movement commands. The following table describes the default bindings for the 
arrow keys: 


| Key Shift 


gee fini $a See ee hae 4S TERRES Rk + 
| Command | 





| Left | backward-char | 
| Left * | backward-word | 
| Right | forward-char | 
| Right * | forward-word | 
| Up | previous-line | 
| Up * | backward-paragraph | 
| Down | next-line | 
| Down * | forward-paragraph | 
CIS 01S ene ee een Sic taro had id 5 se i ae + 


The function keys, both shifted and unshifted, have been assigned EMACS 
commands, most of these commands relate to the Modula-2 Compiler and Linker. 
The following table describes the default bindings for the function keys: 











er 2 Sans eee ae << ee SP RTS A's) < ea, - 
Key Shift Command 
fe ee OOO OOS GRIESE COS AEE GO Ne I + 
Fl m2-err-next-error 
Fl » m2-err-current-error 
F2 m2-comp-current-buffer 
F2 * m2-comp-buffer 
F3 m2-1ink-main 
F3 * m2-1ink-module 
F4 m2-run-main 
F4 Re m2-run-module 
F5 m2-comp-file 
FS * free-mem-avail 
Fé set-m2-main-module 
F6 ff set-m2-1ink-out-dir 
F7 set-m2-obj-dir 
F7 x set-m2-1ink-gen-sym 
F8 m2-comp- load 
F8 * m2-comp-unload 
F9 find-file 
F9 * find-file-other-window 
F1o save-buffer 
F1o % write-file 
$BCT Pa Ses ORs = oe SSSesIg- SF --SeSa~s tts = 
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Menu Commands 


EMACS provides menus for many of the available commands. To examine the 
menus, press and hold the right mouse button. At the top of the screen will 
appear a menu bar with the available menus listed by subject. Move the pointer 
to one of the menu names and the associated menu will appear below the menu 
name. Each item in the menu represents an EMACS command along with its default 
keyboard binding. To invoke the command move the pointer to the desired command 
and release the button. Multiple menu commands may be specified without 
releasing the right mouse button by positioning on the desired item and clicking 
on the left mouse button, each command will then be executed in the order 
received. The menus can also serve as a quick reference to find the default key 
binding for a given command. 


Mouse Commands 


EMACS has been designed so that it may be used without ever touching the 
mouse throughout the entire editing session. However, to accommodate users who 
would like to use the mouse it is possible to execute 24 commands from using 
mouse. 


The mouse commands are divided into three groups. Each group is associated 
with a specific part of the EMACS display. The three parts of the display are 
the text area, the mode line and the echo line. The display component on which 
the pointer associated with the mouse is located determines the command types 
which may be executed. All mouse commands use the left mouse button, all 
further references to clicking the mouse imply the usage of the left mouse 
button. 


The mouse commands in the text area group effect the text in the buffer 
being displayed. When the mouse is clicked in the text area of a window the 
point associated with the buffer displayed in the window is moved to the 
character under the mouse pointer. Then the command bound to the mouse button 
is executed. The function performed by the command is the same as when the 
command without the "mouse-" prefix is executed. The mouse may also be used for 
setting the "mark", this is done by double-clicking on the desired location. 


If the mouse is clicked in the mode line of a window, a command from the 
mode line group is executed for the specified window. The point for the buffer 
associated with that window is set to its previous position and the command 
bound to the mouse button is executed. 


The echo line of the display is not related to any specific window. 
Therefore, clicking the mouse while pointing to the echo line will execute a 
mouse command which has a global effect on EMACS. 


Each mouse command group contains eight commands which may be executed, to 


select a specific command the mouse is clicked while some combination of the 
Ctr1, Alt and/or Shift keys is pressed. The following three tables show the 
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commands possible and the key combinations 
"x" character in a column 
clicking the mouse. 


rite eese 
| Ctrl Alt Shift 


Be Gpocoanceanoat 


| 
| 
| 
| 
| 
| 
| 
| 


oncner Caen ocnoe” 


Ctrl Alt Shift 


* 


EMACS Editor 


required to execute the commands. A 


indicates that the key has to be held down while 


Text Area Commands 


Command 


+ 
| 

+ 

| amiga-mouse 

| mouse-recenter 

| mouse-kil1-word 

| mouse-kil1-line 

| mouse-delete-char 

| mouse - just-one-space 
| mouse-kil]-region 

| mouse - yank 

B 


Mode Line Commands 


Command 


mouse-scrol1]-up 
mouse-scro1]-down 
mouse-split-window-vertically 
mouse-delete-window 
mouse-beginning-of-buffer 
mouse-end-of-buffer 
mouse-enlarge-window 
mouse-shrink-window 


+ ———— + 


Echo Line Commands 


Command 


switch-to-buffer 
kill-buffer 
describe-key-briefly 
describe-bindings 
suspend-emacs 
save-buffers-kill-emacs 
list-buffers 
toggle-window-hack 


+ ———————— + — + 


Sc Pad ose aes Saati 4 + 


| 
| 
| 
| 
| 
| 
| 
| 


LidttinstcsciidoBeeaBpeEse canis Ate iy 


BB 8 She sEASHE SOR ena Sa ce RoaeeerS % 


ROSS CS oto Hee SCS AGS OS SCH OSB in 


SoS SCS SS aoa eS Snaa cS ASn mse SSees + 


| 


CGS Bega aoc See ec Gack else se ac + 


| 
| 
| 
| 
| 
| 
| 
| 


Ph se caine ror Moe meet seta + 
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The commands executed when the key combination and a mouse click is 
performed may be reassigned to any emacs command using the global-set-key 
command. When the global-set-key command prompts for the key to be reassigned, 
perform the key combination and the mouse click which is to be reassigned, EMACS 
will take this action as if it were a normal key sequence. 


Overwrite Mode 


Normally when the user types a character EMACS inserts the character into 
the current buffer and moves the cursor forward, this called the insert mode. 
An alternate mode of editing is available called overwrite mode. The command 
“overwrite-mode" is used to toggle the mode on or off, when the mode is enabled 
the mode line will display the word “over". In overwrite mode when a character 
is typed it overwrites the character at the cursor position rather than 
inserting the character. If the cursor is at the end of line or no more lines 
exist then EMACS inserts any characters typed just as in insert mode. In 
addition, when typing <RETURN> (which executes the command "insert-newline") 
EMACS will move the cursor to the beginning of the next line rather than 
inserting a new blank line as it would in insert mode, however, if the cursor is 
positioned at the end of the file a new line will be inserted. When using the 
"auto-indent" mode the binding of Ctr1-J and <RETURN> keys is reversed, in this 
case even while overwrite mode is active the <RETURN> key still performs a 
newline and indent operation. 


Fill Mode 


A limited word processing capability is available in EMACS called fill 
mode. The command “auto-fill-mode" is used to toggle the mode on or off. When 
the auto fill mode is enabled the mode line will display the word "fill". When 
in fill mode the <RETURN> key does not have to be typed at the end of each line, 


EMACS will automatically wrap words to the next line when the left margin is 
crossed. 


The set-fill-column function activated by Ctri-x f may be used to change 
the position of the left margin, also known as the fill column. To set the fill 
column move the cursor to the column to be the left margin and invoke the 
set-fill-column function. 


The fill-paragraph function activated by Esc-q may be used at any time to 
reformat a paragraph, EMACS does not have to be in fill mode in order to use 
this function. This function may be used after a new fill column has been set 
or after a paragraph has been changed to reformat the paragraph. 


Delayed Prompts 


If the user pauses while typing a command which consists of more than one 
keystroke, EMACS will display the keystrokes entered on the echo line. This is 
done to remind the user what has been keyed in so far. 
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Command Prefix Argument 


The command prefix allows a parameter to be passed to a command. This 
argument usually specifies a repeat count for the command, allowing a given 
command to be executed a specified number of times. In some cases this argument 
is used to cause the command to behave differently than it would without any 
argument. The command prefix is introduced by typing Ctr1-U followed by an 
optional minus sign if a negative number is desired, followed by a decimal 
number up to 32,767. To change the number the <BackSpace> key may be used to 
delete the number digit by digit. If a number is not entered, the default 
argument of (4) is assumed. The number is usually entered without any feedback 
on the display, however, if the user pauses, the delayed prompting will cause 
the number to appear on the echo line. 


Rebinding Keys 


A very important feature of EMACS is the ability to completely redefine the 
keyboard. Each function in EMACS has a name which identifies the function. The 
user can associate a valid key combination with a function, thereafter, whenever 
the key combination is typed the associated function will be executed. 


The function global-set-key is used to associate a function with a key 
combination. The function prompts for the key combination to be defined, at 
this prompt type the exact key combination, for example Ctri-x h. If a valid 
key combination was typed, the function then prompts for the name of the 
function to be associated to that key combination, for example find-file. 
Thereafter, whenever this key combination (Ctri-x h) is issued the function 
(find-file) will be invoked. If the global-set-key command is used on an 
already defined key combination, the new definition replaces the old definition. 


The function global-unset-key is used to disassociate a function from a key 
combination. The function prompts for the key combination to be deleted. 
Thereafter, typing the key combination will cause nothing to happen. 


The function describe-key-briefly may be used to determine the function 
associated with a given key combination. This function is bound to the <HELP> 


key by default and is very useful for beginners trying to learn the key 
combinations. 


The function describe-bindings creates a list of all the currently active 
key bindings. This list is generated into a new buffer called "*Help*". It may 
be useful to print this buffer on a printer and use the hard copy for reference 
purposes. 


While it is possible to change key bindings manually each time EMACS is 


started, it is not very convenient. A much more practical approach is to add 
the key bindings to the default EMACS startup file called ".emacs". 
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Expression Evaluation 


This EMACS facility tries to emulate a tiny portion of the LISP language 
built into EMACS on larger systems. The purpose of this facility is to read a 
file containing EMACS commands, typically these are commands which rebind keys. 
Each EMACS command has an associated symbolic mame, the command may be bound to 
any number of possible key combinations at the same time. 


Upon startup EMACS looks for a file called ".emacs" in the current 
directory and, if not found, then in the "s:" directory. If the file is found 
it is read and the commands in the file are executed. 


To execute a file containing EMACS commands any time during the editing 
process use the load command. The contents of the specified file will be 
executed as if they were entered by the user. 


The format of a command file is one or more lines of text each containing 
the name of an EMACS function followed by one or two optional arguments. An 
optional parenthesis may enclose the entire command. 


Two types of arguments are allowed in a command file, a string and a key 
sequence. A key sequence is equivalent to typing the keys on the keyboard to 
invoke a command, it must be enclosed in double quotes. A string is what would 
be typed on the echo-line in response to a prompt from a command, a string may 
be preceded by an optional single quote. 


The following escape sequences may appear inside a key sequence to 
introduce non-printing characters into the command file: 


\ - next character specifies a control character 
\e - next character specifies an escape character 
\n - newline character (Line Feed) 
\t + tab character 
\r - carriage return character 
\f[n][n] - function/arrow/special keys 
@1-10 = Fl. .F10 
11-20 = Shift F1..F10 
21 = Up Arrow 
22 = Shift Up Arrow 
23 = Down Arrow 
24 = Shift Down Arrow 
25 = Left Arrow 
26 = Shift Left Arrow 
27 = Right Arrow 
28 = Shift Right Arrow 
29 = HELP 
\\ - backslash character 
\ - next character is inserted "as-is" 
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The following example rebinds the key combination Esc-o to the command 
open- line: 


(global-set-key "\eo" ’open-line) 


global-set-key - command to change the binding of a key 
"\eo" - the key to change is Esc-o 
’open- line - change binding to open-line command 


This example rebinds the key combination Ctri-x c to the command 
m2-comp-buffer: 


(global-set-key "\"xc" ’m2-comp-buffer) 


global-set-key - command to change the binding of a key 
WN xXCe - the key to change is Ctri-x c 
’m2-comp-buffer - change bindings to m2-comp-buffer command 


This example sets a new maximum value for the compiler error count: 
(set-m2-err-count ’50) 


set-m2-err-count - command to change error count 
"50 - set new error count to fifty 


Other Examples: 
(file-req-mode) 
(global-set-key "\f1" ’m2-comp-1oad) 
(set-mode-background 1) 


Echo Line Prompt 


Many of the commands in EMACS display a prompt on the echo line of the 
display. At this point EMACS is expecting the user to type a string in 
response. The following special keyboard commands are available during the 
input of a string: 


Ctri-g - abort current function 

Ctri-q - quote the next character (followed by control character) 
Ctri-u - erase the entire string 

Ctri-x - same as Ctrl-u 

<BackSpace> - erase the previous character typed 

<RETURN> - terminate string and execute function 


Auto Completion of Names 





EMACS supports a facility called auto completion when entering the name of 
a command or the name of a buffer. This means that when EMACS prompts for the 
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name of a buffer or the name of an EMACS function, you can type only the number 
of characters which are necessary to distinguish the name from the possible list 
of names. EMACS will automatically complete the name. 


The following keys have a special meaning while the auto completion 
facility is active: 


<SPACE> - complete the current word 
<TAB> - complete the entire name 
<RETURN> - complete the entire name and execute function 


If EMACS cannot determine which name is being entered it will display the 


message "[Ambiguous]". To continue, enter one or more additional characters 
which will help EMACS to determine which name is being entered. 


Executing Commands by Name 





Any commands in EMACS can be executed by explicitly typing its name. To do 
this the command execute-extended-command (Esc-X) is specified. The command 
will prompt for the name of the function to be executed. Type out the name of 
the function you wish to execute and press <RETURN> the command will be 
executed. This facility is especially useful for commands which are not bound 
to any keys. 


Keyboard Macro 


A simple macro facility is available in EMACS. Currently only one macro 
may be defined at any one time. The macro feature is primarily useful to 
perform an editing operation consisting of multiple steps one or more times. 


To begin a macro definition the function start-kbd-macro is used, normally 
bound to Ctri-x (. Thereafter any key or key combination typed is executed as 
usual, but is also added to the macro. To end the macro definition the function 
end-kbd-macro is invoked, normally bound to Ctri-x ). After a macro definition 
has been successfully defined it may be executed using the function 
call-last-kbd-macro, normally bound to Ctri-x e. 

To have the macro execute more than once, precede the call-last-kbd-macro 
function with a numeric argument. 


Some care should be taken when defining a macro, if one of the functions 
you are adding to the macro fails, the macro definition will terminate 
immediately. In addition, when executing a macro, if a command being executed 
fails, the macro execution will terminate immediately. 


To increase the speed of macro execution, the display is not updated while 


the macro is executing. When macro execution has completed the display will be 
updated. 
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The following example defines a simple macro sometimes useful during 
program development. The commands invoked by this macro are as follows: 


* m2-comp-current-buffer 
* m2-link-main 
* m2-run-main 


To define this macro type the following key combinations: 
[etri-x (] [F2] [F3] [F4] [Ctri-x )] 


Do not type "[" "]" as they are only here to make it easier to read the 
macro definition. The commands F2,F3,F4 refer to the corresponding function 
keys. 


Executing this macro causes the current buffer to be compiled. If no 
errors are encountered during compilation, the program is linked. If no errors 
are encountered during linking the program is executed. This macro provides a 
very primitive "make" capability. 


The EMACS Program Window 


When EMACS starts up, it opens an Intuition window. The window occupies 
the entire display and has the borders turned off to allow a full 80 columns of 
text. The size of the initial window is determined by the size of the WorkBench 
screen in either interlaced or non-interlaced mode. The only limitation on the 
window is the number of lines of text, currently this values is 61 lines, enough 
to accommodate a PAL Amiga in interlaced mode. To make a smaller window the 
command toggle-window-hack is used. After issuing the command the borders will 
become visible and the window can be resized and repositioned. The 
toggle-window-hack command can then be used to toggle between a full size 
display window and a smaller window positioned anywhere on the screen. 


The File Requester 


Whenever EMACS requires the name of a file to be specified two methods of 
input are available. The first method places a prompt on the echo line and 
waits for the user to type in a filename followed by <RETURN>. The second 
method opens a small Intuition window (on top of the EMACS window) containing a 
directory listing. The desired file may then be selected using the mouse. 


The input method used depends on the state of the "file-req-mode". The 
"file-req-mode" is initially active when EMACS starts up, meaning that filename 
input takes place through the file requester window. To toggle the input method 
to the keyboard input mode execute the function "file-req-mode" again. 
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The contents of the file requester window is as follows: 


* Title Bar - contains the name of the operation to be performed on the 
selected file. The title bar may be used to move the window to a new 
position. 

* Close Gadget - Cancels the file requester without making a file 
selection. 

* Front/Back Gadgets - These two gadgets allow the window to be moved in 
front of or behind other windows on the WorkBench screen. 

* "Directory" Gadget - contains the relative path of the directory being 
displayed. If the gadget is empty then the current directory is being 
displayed. 

* "File Name" Gadget - name of currently selected file, the filename can be 
typed into this gadget or can be selected by clicking on a filename in 
the directory display. When the file requester window first opens 
this gadget is automatically selected. 

* "Pattern" Gadget - AmigaDOS file pattern to use for determining which 
filenames in a directory to display. By default the pattern is set to 
"#2" which matches any name. 

* Directory Display - contents of the directory specified by the 
"Directory" gadget is displayed, only filenames which match the 
current pattern are shown. File names are shown in white and 
directory names are shown in orange. All directory names are shown 
regardless of the current pattern. Clicking on a filename highlights 
the name, double-clicking on a _ filename selects that file. 
Double-clicking on a directory name displays the files in that 
directory. 

* Scroll Bar - the vertical scroll bar is used to scroll through the 
directory entries. The size of the scroll bar is proportional to the 
number of files visible. 

ACCEPT Gadget - Perform the specified operation on the currently selected 
file. 

* VOLUME Gadget - Display a ist of volumes currently mounted, 
double-clicking on a volume name will display the root directory of 
that volume in the directory display. 

* PARENT Gadget - Display the parent of the current directory. 


* CANCEL Gadget - Cancels the file requester without making a file 
selection. 


The "Directory", "File Name" and "Pattern" gadgets are string input gadgets 
and support the following special commands: 


Alt-X - clear contents of string input gadget 

Alt-Q - restore contents to previous contents (undo) 
Left - move cursor one character left 

Shift-Left - move cursor to beginning of string 
Right - move cursor one character right 

Shift-Right - move cursor to end of string 


Pe a ed 


The "Pattern" gadget is used to specify an AmigaDOS filename pattern to be 
applied to the filenames in the directory. Only filenames which match the 
currently specified pattern will be displayed. The entire filename pattern 
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capability of AmigaDOS may be used. For additional information refer to the 
AmigaDOS user’s guide. 


The following special characters may appear in a pattern definition: 


? = matches any single character 

% = matches the null string 

#<p> = matches zero or more occurrences of pattern <p> 
<pl><p2> = matches a sequence of pattern <p1> followed by <p2> 
<p1>|<p2> = matches if either pattern <p1> or pattern <p2> match 
Q = groups patterns together 

Examples of valid patterns which may be specified in the "Pattern" gadget: 
#? = Match any name 

#?.def = Match any name ending in ".def" 
#?.def|#?.mod = Match any name ending in ".def" or “.mod" 
Simple#? = Match any name which begin with "Simple" 


If the file requester window jis displayed, EMACS commands may not be 
executed, after a file is selected or the file requester is cancelled you may 
continue editing. 


If the file requester window is moved by the user to a new position, the 


window will appear at the new position on subsequent invocations of the file 
request window. 


The Current Directory 


The current directory is the default directory which will be used by EMACS. 
Initially, the current directory is the directory in which EMACS was started. 
This may be changed at any time using the “current-dir" function. This function 
will display the absolute path to the current directory, if the volume is no 
longer mounted the message "[VOLUME NOT MOUNTED]" is displayed. At the prompt a 
new current directory may be specified. 


EMACS automatically expands all filenames supplied by the user to the full 
absolute file path. Because of this, when the current directory is changed the 
path will continue to be valid. An absolute path is one beginning with a device 
name or volume name. 


When the current directory is changed, the change effects the editor, 
compiler and linker simultaneously. This way, while EMACS may be started in a 


sub-directory of DF1: switching the current directory to RAM: will cause the 
compiler to send output files to RAM:. 


Exact Filename Mode 
When using a command to read data from a file, EMACS associates the 


filename with the buffer into which the data is read. AmigaDOS does not 


6-17 


Modula-2 Software Construction Set Reference Guide 


distinguish between lower case and upper case names. If a name in a different 
case then the filename on disk is specified, EMACS will read in the file. 
However, when writing out the file the new name will be used. To preserve the 
original case of the filename without having to remember the case when reading 
files the "exact-fname-mode" can be used. This mode can be toggled using the 
"exact-fname-mode" function. Initially EMACS begins with "exact-fname-mode" 
disabled. The “exact-fname-mode" affects all the read and write functions of 
EMACS. 


The Modula-2 Compiler 


The Modula-2 compiler has been integrated with EMACS to provide convenient 
compilation of Modula-2 programs from within the editor. This subsection will 
describe how the compiler interacts with EMACS. For more information on the 
compiler itself refer to the compiler chapter of the manual. 


Before a program can be compiled from within EMACS, the Modula-2 compiler 
must be loaded into memory. The compiler is loaded into memory automatically 
anytime a compiler related command is used. To explicitly load the compiler, 
invoke the command m2-comp-load. The command will prompt for an argument 
string to be passed to the compiler. The argument string may contain any of the 
arguments available when using the compiler from the CLI. For details on the 
arguments allowed refer to the compiler chapter. After typing the argument 
string press the <RETURN> key. If the compiler is loaded automatically then an 
empty argument string will be passed to the compiler, to pass an argument string 
the compiler must be loaded explicitly using the m2-comp-load command. EMACS 
will try to load the compiler from disk, the file name of the compiler is "M2". 
EMACS first tries to load the compiler from the current directory, if it is not 
found, EMACS searches the AmigaDOS PATH and finally the "C:" directory. If 
EMACS has any difficulties loading the compiler an error message will be 
displayed on the echo line. After the compiler is loaded successfully the 
compiler is passed the specified argument string. If the argument string is 
invalid an error message will be displayed and the compiler will be unloaded 
from memory. If the compiler accepts the argument string and there is no other 
problems, the message "Modula-2 Compiler Loaded." is displayed on the echo line. 


After the compiler is successfully loaded it becomes resident. The 
compiler will remain resident until EMACS is exited or the compiler is 
explicitly unloaded using the command m2-comp-unload. 


As long as the compiler is resident it may be used to perform the following 
operations: 


* Compile the contents of the current buffer 
* Compile the contents of a specified buffer 
* Compiler a file on disk 


The buffer associated with the window in which the cursor is currently 
positioned is considered the current buffer. To compile the contents of the 
buffer the command m2-comp-current-buffer is invoked. The compiler will compile 
the current buffer returning with a message indicating if any errors were found 
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in the compiled text. 


The command m2-comp-buffer may be used to specify the name of a buffer to 
be compiled. This works the same as compiling from the current buffer except 
that the buffer does not have to be visible on the display to be compiled. 


While compiling from a buffer the echo line will be updated to show the 
current line number being compiled. This update will occur every 32 lines. At 
the beginning of the buffer where the import lists are usually located the 
update will be performed every 2 lines, to give a better idea of the progress. 


On an Amiga with only 512K of memory it may not be possible to compile a 
very large program directly from a_ buffer. In this case the command 
m2-comp-file may be used to compile a file located on disk. 


After compilation EMACS may display the message “Symbol Module Generated." 
for a DEFINITION module or “Object Module Generated. Code:xxxx UData:xxxx 
IData:xxxx Total:xxxx" for an IMPLEMENTATION module, “xxxx" represents the size 
of the module in bytes. This means that the compilation was successful and the 
appropriate output files have been generated. If any errors were found in the 
source text, the message "Source Compiled, n Errors Found." where n is the 
number of errors encountered in the source text. 


If one or more errors were found in the source, it is now possible to step 
through each error one at a time. The cursor is moved to the location of each 
error and the associated error message is displayed in the title bar of the 
window and on the echo line. The contents of the echo line may change after any 
command is issued, while the title bar will continue to display the error 
message. 


To begin fixing errors in the source text, use the command 
m2-err-next-error to move the cursor to the position of the first error. If the 
current window is not displaying the buffer which contains the error, EMACS will 
force the contents of the current window to display the correct buffer. The 
cursor will be placed at the position of the error and the error message will be 
displayed. At this point the error may be fixed by editing the buffer. To 
return the cursor to the position of the current error after moving around the 
buffer the command m2-err-current-error can be issued. 


To advance to the next error the command m2-err-next-error should be 
invoked again. The cursor will be moved to the new error position and the error 
message display. If no more errors exist the message "End Of Error List! 
(returning to first error)" will be displayed on the echo line. Selecting the 
m2-err-next-error command will again take the cursor to the first error in the 
source text. 


The procedure for fixing errors after compiling a file using the 
m2-comp-file command is slightly different. Before EMACS can step through the 
errors found in the file, the file must read into a buffer using the command 
find-file. The name used to load the file must be identical to the name used to 
compile the file. An easy way to ensure the exact name will be used is to use 
the "exact-fname-mode". After the file is read into a buffer, the process used 
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to step through errors is the same as for source text compiled from a buffer. 


By default EMACS will only step through the first 28 errors found in the 
source text, even if the compiler detected more than 20 errors. This number of 
errors recognized by EMACS can be changed using the command set-m2-err-count. 
The command prompts for the number of errors to handle. To have EMACS step 
through all of the errors specify an error count of zero. 


When the compiler is loaded into EMACS it will occupy about 100K bytes of 
memory. When the compiler is invoked to perform a compilation additional memory 
for the compiler’s heap, code buffer and other workspace is allocated. If there 
is not enough memory to allocate EMACS will display a message indicating that 
the compiler needs more memory. The command free-mem-avail is useful for 
checking the amount of memory currently available. Memory can be freed up by 
killing unused buffers. In some rare situations the memory in the Amiga may 
have been badly fragmented and while the free-mem-avail command may report 
enough memory free, the compiler may still not be able to compile. The only 
remedy to this problem is to exit EMACS and then return to EMACS, this should 
solve the problem, as a last resort rebooting the Amiga will always solve the 
problem. 


The Modula-2 Linker 


After a program has been compiled it may be linked to generate an 
executable file. The linking of a program can be performed using the linker 
called "M2Lk" from the CLI or the linker built into EMACS can be used for 
linking. The linker built into EMACS has exactly the same features as the stand 
alone linker program but provides facilities for linking by pressing just one 
key. For more information refer to the section of this manual which describes 
the linker. 


Before the EMACS linker is used it may be necessary to initialize a few of 
the linker options. If most of the time the same program is being linked it may 
be useful to specify the name of the programs main module, so that linking can 
be done by just pressing one key. To set the name of the main module the 
command set-m2-main-module is used. The command prompts for the name of the 
main module. It may also be necessary to specify the names of the directories 
the linker should search when looking for files. The command set-m2-obj-dir 
prompts for a list of directory names each separated by a blank space. By 
default the linker outputs the executable file to the current directory, it may 
be directed to place executable files into another directory using the 
set-m2-1link-out-dir command. 


Assuming a main module has been specified, all that is needed to link a 
program is to invoke the m2-link-main command, this will start the linking 
process. The linker uses the echo for displaying information during the linking 
process. The name of each object module imported by the program being linked 
will be displayed with a preceding "<-" to indicate input. The linker will then 
display the symbol "->" followed by the name of the output file. After the 
linking is complete the linker will display the statistics of the generated 
program, refer to the linker section of this manual for an explanation of this 
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information. 


The linker can also be directed to link a module of a specified name using 
the m2-link-module command. This command will prompt for the name of a module 
to be linked. After the name of the module is entered the linking process is 
identical to the one described above for the m2-link-main command. 


Finally, if the executable file will be debugged using a symbolic debugger, 
the linker can be directed to include symbols in the executable file. The 
command set-m2-link-gen-sym is used to enable or disable adding symbols to the 
executable file or to add source level debugger information to the executable 
file. This command corresponds with the "-d","-a" and "-g" options of the stand 
alone linker. When symbol generation is enable, after the name of the execute 
file is displayed during the linking process the names of the symbol and 


reference files being read will be displayed on the echo line preceded with the 
name "Sym:". 


Running Modula-2 Programs 





After a program has been successfully compiled and linked the program can 
be executed from inside EMACS, from the CLI or from the WorkBench. This section 
deals with running Modula-2 programs from EMACS. 


Programs invoked from EMACS run concurrently with the editor and so editing 
may continue while a program is running. In addition more than one program may 
be invoked at the same time, the only limitation is the available memory. To 
prevent any possible problems, EMACS can not be exited while any user programs 
are still running. 


To run the "main" module use the function "m2-run-main", to run a module of 
a specified name use the command "m2-run-module". Both functions look in the 
current directory or the linker output directory for an executable file which 
has the corresponding name. A window to be used for input and output is opened 
for the user program, the user program then begins execution. After the program 
terminates press <RETURN> to close the output window. 


Other commands relating to running user programs are available, refer to 
the command summary at the end of this chapter for additional documentation. 
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Command Descriptions by Topic 





In this section all of the commands available in EMACS are listed along 
with their descriptions. The commands are broken down by topic for quick 
reference. The default key binding for the command is listed in brackets after 
the name of the command, some rarely used commands are not bound to any key by 
default. The term "ARG" used in this section refers to the preceding command 
argument specified using Ctr1-U before the command. 


Cursor Commands 


backward-char [ Ctr1-B ] 
Moves the point to the left (back) one character position. 


backward-paragraph [ Esc-[ 
Moves the point backward to the beginning of the current paragraph. 


backward-word [ Esc-B ] 
Moves the point backward to the beginning of the current word. 


beginning-of-buffer [ Esc-< ] 
Set the mark at the current point position. Position the point on the first 
character in the buffer. 


beginning-of-line [ Ctri-A ] 
Moves the point to the beginning of the current line. 


end-of-buffer [ Esc-> ] 


Set the mark at the current point position. Position the point on the last 
character in the buffer. 


end-of-line [ Ctri-E ] 
Moves the point to the end of the current line. 


forward-char [ Ctri-F J 
Moves the point one character position to the right (forward). 


forward-paragraph [ Esc-] ] 
Moves the point forward to the end of the current paragraph. 


forward-word [ Esc-F ] 
Moves the point forward to the end of the current word. 


goto-line [ Esc-G ] 
The command prompts for a line number. Moves the point to the beginning of 
the specified line. If the specified line number is greater than the 
number of lines in the buffer then moves the point to the last line of the 
buffer. The ARG may be used to specify the line number 


next-line [ Ctr1-N ] 
Moves the point forward to the same column in the next line. 
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previous-line [ Ctri-P ] 
Moves the point backward to the same column in the preceding line. 


Window Commands 


delete-other-windows [ Ctr1-X 1 ] 
Returns the editor display to one window by expanding the current window to 
fill the entire display. 


delete-window [ Ctri-X 8 J 
Remove the current window from the display. Moves the point to the next 
window in the display. 


enlarge-window [ Ctr1-X ~ ] 
Enlarge the size of the current window. The window above or below the 
current window will shrink to make room for the larger current window. The 
ARG may be used to specify the number of lines to enlarge the window. 


next-window [ Ctr1-X N or Ctr1-X 0 ] 
Moves the point to the next(down) window in the display. If the current 
window is at the bottom of the display then moves to the window at the top 
of the display. 


previous-window [ Ctr1-X P ] 
Moves the point to the previous(up) window in the display. If the current 
window is at the top of the display then moves to the window at the bottom 
of the display. 


recenter [ Ctri-L ] 
Recenter the window to make the current line the center line. The ARG 
value specifies the new position of the line relative to the top of the 
window. 


scroll-down [ Esc-V ] 
Moves the window backward in the edit buffer by about one window length. 
The window is positioned on the edit buffer so that the previous first line 
in the window becomes the last line. The ARG may be used to specify the 
number of lines to scroll. 


scroll-other-window [ Esc Ctr1-V ] 
Moves the next(down) window in the display forward in the edit buffer by 
about one window length. The window is positioned on the edit buffer so 
that the previous last line in the window becomes the new first line. The 
ARG may be used to specify the number of lines to scrol}. 


scroll-up [ Ctri-V ] 
Moves the window forward in the edit buffer by about one window length. 
The window is positioned on the edit buffer so that the previous last line 
in the window becomes the first line. The ARG may be used to specify the 
number of lines to scroll. 
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shrink-window 
Shorten the size of the current window. The window above or below the 
current window will become larger to fill in the gap in the display. The 
ARG may be used to specify the number of lines to shrink the window. 


split-window-vertically [ Ctr1-X 2 ] 
Splits the current window into two windows, initially both windows will 
display the same buffer. This operation will not work if the current 
window is smaller than three lines in height. 


Buffer Commands 


insert-buffer 
The command prompts for the name of the buffer. The contents of the 
specified buffer is inserted at the current point position. Pressing the 


<RETURN> key without entering a name will select the alternate buffer if 
one exists. % 


kill-buffer [ Ctr1-xX K ] 
The command prompts for the name of the buffer. Enter the name of the 
buffer to kill or press <RETURN> to kill the current buffer. The contents 
of the specified buffer is discarded and the buffer itself is deleted from 
the system. When killing the current buffer the contents of the window 
will change to display the alternate buffer. If the buffer has been 
modified but not saved EMACS will request a confirmation. 


list-buffers [ Ctr1-X Ctr1-B ] 

Creates a new buffer called "*Buffer List*", the contents of the new buffer 
is a list. Each line in the buffer list represents a buffer and the status 
information for that buffer. If the first character of the line contains 
"." then this is the current buffer. The first column in the list labelled 
"MR" may contain a "*" symbol to indicate that the contents of the buffer 
has been changed, but the change has not been written out to a file. The 
second column labelled "Buffer" contains the name of a buffer. The third 
column labelled "Size" contains a value specifying the number of character 
in the buffer. The last column labelled "File" contains the file path 
specification for the file associated with the buffer. The new buffer 
containing the list of buffers is displayed in one of the existing windows 
or a new window is created, if only one window exists on the display. 


not-modified [ Esc-~ ] 
Marks the current buffer as unmodified since it was last read or written to 
a file. Clears the buffer status "**" in the mode line. 


switch-to-buffer [ Ctr1-X B ] 
Selects a specified buffer and displays it in the current window. The 
command prompts for the name of the desired buffer. Pressing the <RETURN> 
key without entering a buffer name selects the alternate buffer. If the 
specified buffer name does not exist a new buffer is created and the new 
name is assigned to the buffer. 
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switch-to-buffer-other-window [ Ctr1-X 4 B ] 
Selects a specified buffer and displays it in another window. The command 
prompts for the name of the desired buffer. Pressing the <RETURN> key 
without entering a buffer name selects the alternate buffer. If the 
specified buffer name does not exist a new buffer is created and the new 
name is assigned to the buffer. 


File Commands 


current-dir 
The command displays the default directory for EMACS. The default 


directory may be changed by specifying a new path. Pressing <RETURN> exits 
without changing the current directory. 


exact-fname-mode 
Toggle exact filename mode on or off. When the exact filename mode is 
enabled the exact case of the filename on disk is used rather than the user 
specified case. This mode is initially disabled. 


file-req-mode 
Toggles between file request window mode and keyboard input mode for 
filename input. Initially the file request window mode is active. When 
active it causes a file request window to be opened whenever EMACS requires 
a filename to be specified. When inactive it causes a prompt to appear on 
the echo line requiring the user to type in the filename. 


find-file [ Ctr1-X Ctri-F or F9 ] 
The command prompts for the name of a file to edit or creates a file 
request window, determined by the state of the "file-req-mode". The list 
of buffer’names is searched for the specified filename. Selects the buffer 
with that filename if there is one. Otherwise, creates a buffer with that 
name and reads the file into the new buffer from disk. 


find-file-other-window [ Ctr1-X 4 F or Shift-F9 ] 
The command prompts for the name of a file to edit or creates a file 
request window, determined by the state of the "file-req-mode". The list 
of buffer names is searched for the specified filename. Selects the buffer 
with that filename if there is one. Otherwise, creates a buffer with that 
name and reads the file into the new buffer from disk. The buffer will be 


displayed an another existing window or a new window will be created for 
the buffer. 


insert-file [ Ctri-xX I ] 
The command prompts for the name of a file to insert or creates a file 
request window, determined by the state of the "“file-req-mode". The 
contents of the specified file is inserted after the point in the current 
buffer. The mark is set to the character after the inserted text. 


make-backup- files 
Toggle file backup mode on or off. When the file backup mode is enabled 


6-25 


Modula-2 Software Construction Set Reference Guide 


and the find-file command is invoked the buffer will be marked for backup. 
If the file backup mode is enabled when the file is saved then the file on 
disk will be renamed to a new filename with the character ’~’ appended to 
the name. On subsequent save file operations on that buffer the backup 
file will not be changed. Using the file backup mode allows the previous 
version of a file to be recovered. To disable the file backup mode invoke 
the command with a preceding ARG. This mode is initially disabled. 


save-buffer [ Ctr1-X Ctri-S or F106 ] 
Copies the contents of the current buffer into the file associated with the 
current buffer. The buffer is not written out if no changes have been made 
since the last save operation or since the file was read into the buffer. 
The buffer must have an associated filepath in order for this command to 
work. 


save-buffers-kill-emacs [ Ctr1-X Ctr1-C ] 

Exits the editor returning to the dos shell. A prompt will be issued for 
each buffer which has been modified but not written out to a file, the 
prompt asks if the contents of the buffer should be written out to a file. 
If after presenting a prompt for each modified buffer any buffers modified 
buffers still remain a final prompt will appear requesting a confirmation 
for the exit from the editor. Only buffers with filepaths will be checked 
for modifications. 


save-some-buffers [ Ctr1-X S ] 
A prompt will be issued for each buffer which has been modified but not 
written out to a file, the prompt asks if the contents of the buffer should 
be written out to a file. The command may be used with an ARG in which 
case all modified buffers will be written out without issuing any request 
prompts. Only buffers with filepaths will be checked for modifications. 


write-file [ Ctr1-X Ctrl-W or Shift-F10 ] 
The command prompts for a filename to be used for writing out a file or 
creates a file request window, determined by the state of the 
"file-req-mode". The contents of the current buffer is written out to the 
specified file. 


Copy/Delete/Kill Commands 





backward-delete-char [ Ctr1-H or BackSpace ] 
Delete the character to the left of the point. The command may be used 


with ARG to delete a specified number of characters and place into kill 
buffer. 


backward-kill-word [ Esc Backspace ] 
Moves the word to the left of the point to the kill buffer. 


copy-region-as-kill [ Esc-W ] 


The characters between the current point and mark are copied to the kill 
buffer. 


6-26 


EMACS Editor 


delete-blank-lines [ Ctr1-X Ctr1-0 ] 


If the point is on a blank line then any blank lines above or below the 
current line including the current line are deleted from the buffer. If 
the point is on a non blank line then any blank lines below the current 
line will be deleted. 


delete-char [ Ctrl-D or DEL ] 


Deletes the character to the right of the point. The ARG may be used to 


kill a specified number of characters and place the characters into the 
kill buffer. 


kill-line [ Ctr1-K ] 


Moves all characters to the right of the point on the current line to the 
kill buffer, not including the end of line character. If the end of line 
character is the only character to the right of the point on the current 
line, it is moved to the kill buffer. 


ki11-paragraph 


The current paragraph is deleted and placed into the kill buffer. 


kill-region [ Ctri-W J 


The characters between the current point and mark are delete from the 
buffer and copied into the kill buffer. 


kill-word [ Esc-D or Ese DEL ] 


Moves the characters from the point until the end of the current word, to 
the kill buffer. 


yank [ Ctr1-Y ] 


Insert the contents of the kill buffer at the point. After inserting the 
text the point is moved to the next character after the inserted text. 
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Search/Replace Commands 


isearch-backward [ Ctr1-R ] 


Search backwards from the point incrementaly. The Incremental search causes 
the current buffer to be searched for a string as it is being entered, 
unlike the non-incremental search which waits for the entire search string 
to be specified. At the prompt typing a normal character will add that 


character to the search string, or one of the following commands may be 
entered: 


* BackSpace - Undo the last command typed. 

* Esc - Exits incremental search, leaving the point at the current 
location. 

Ctr1-S - Search again forward from the current location. 

Ctr1-R - Search again backwards from the current location. 

Ctr1-Q - Add a quoted character to the search string. 

Ctri-G - If the current search failed, will return the search string to 
the last successfully found string. If the current search is 
successful will cancel the command and return point to the original 
position. 

* Other control characters terminate the incremental search and then are 

executed normally. 


4 4 4% 


isearch-forward [ Ctri-S ] 
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Search forward from the point incrementaly. The Incremental search causes 
the current buffer to be searched for a string as it is being entered, 
unlike the non-incremental search which waits for the entire search string 
to be specified. At the prompt typing a normal character will add that 


character to the search string, or one of the following commands may be 
entered: 


* BackSpace - Undo the last command typed. 

* Esc - Exits incremental search, leaving the point at the current 
location. 

Ctr1-S - Search again forward from the current location. 

Ctr1-R - Search again backwards from the current location. 

Ctr1-Q - Add a quoted character to the search string. 

Ctr1-G - If the current search failed, will return the search string to 
the last successfully found string. If the current search is 
successful will cancel the command and return point to the original 
position. 

* Other control characters terminate the incremental search and then are 

executed normally. 


ee 4 OF 


EMACS Editor 


query-replace [ Esc-% ] 
The command prompts for the string to be replaced and the replacement 
string. The search for the string begins at the point and continues to the 
end of the current buffer. Each time the string to be replaced is found 
the following commands are available: 


* Help - Display the available options. 

* Space - Replace original string with the replacement string. 

>.’ - Replace original string with the replacement string and then exit 
the query-replace command. 

BackSpace - Advance to the next occurrence of the original string. 

*1? - Replace all the remaining occurrences of the original string, 
without prompting. 

Esc - Exit the query-replace command. 


* 


* 


* 


search-again [ Esc-A ] 
Advance point to the next occurrence of the string which was used in the 
previous isearch-forward, jsearch-backward, search- forward or 
search-backward command. The direction of the search for the next 
occurrence depends on the direction of the previous search command. 


search-backward [ Esc-R ] 
Prompts for a search string, if <RETURN> is pressed uses the search 
string from the previous search command. Searches for a specified string 
from the point to the beginning of the current buffer. 


search-forward [ Esc-S ] 
Prompts for a search string, if <RETURN> is pressed uses the search 
string from the previous search command. Searches for a specified string 
from the point to the end of the current buffer. 


Case Commands 


capitalize-word [ Esc-C ] 
If the first character of the next word is a letter, then convert the 
letter to upper case. The point is moved to the end of the word. 


downcase-region [ Ctr1-X Ctri-L J 
Convert the characters in the region from the point to the mark to lower 
case, if they are upper case letters. 


downcase-word [ Esc-L ] 


Convert the characters in the word to the right of the point to lower case. 
The point is moved to the end of the word. 


upease-region [ Ctr1-X Ctri-U ] 
Convert the characters in the region from the point to the mark to upper 
case, if they are lower case letters. 

upcase-word [ Esc-U ] 
Convert the characters in the word to the right of the point to upper case. 
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The point is moved to the end of the word. 


Key Binding Commands 


describe-bindings 
Creates a new buffer called "*Help*", the contents of the new buffer is a 
list of the current key bindings. Each line in the buffer beings with the 
symbolic name of a key followed by name of the function currently 
associated with that key. The new buffer containing the key bindings is 
displayed in one of the existing windows or a new window is created, if 
only one window exists on the display. 


describe-key-briefly [ HELP ] 


The command prompts for a key and displays the function associated with 
that key. 


global-set-key 


The command prompts for a key and a function. The specified function 
becomes bound to the key. 


global-unset-key 


The command prompts for a key. The specified key is disassociated from the 
function previously attached to the key. 


help 
This command provides two kinds of help: pressing "B" executes the 


describe-bindings command or pressing "C" executes the describe-key-briefly 
command. 


Macro Commands 


call-last-kbd-macro [ Ctr1-X E J 


Execute the currently defined keyboard macro. If a macro has not been 
defined yet then nothing happens. 


end-kbd-macro [ Ctri-X ) J 


Stop recording keyboard input for macro. The macro is now recorded and can 
be invoked using the call-last-kbd-macro function. 


start-kbd-macro [ Ctr1-X ( ] 


Begin recording keyboard input for macro. Each key sequence entered is 
executed normally, but is also recorded for later execution as a macro. 


Fill Mode Commands 
auto-fill-mode 
Toggle word-wrap at end of line mode, this mode effects all further input 


into any buffer. When text is being entered the <RETURN> key does not have 
to be entered, words will automatically be wrapped to the next line after 


6-30 


EMACS Editor 


reaching the display column designated as the fill column. This mode may 
be useful for using the editor as a limited word processor. The <RETURN> 
key will only be used at the end of paragraphs. The mode line will display 
the word "fill" while the editor is in this mode. 


fill-paragraph [ Esc-Q ] 

Format the lines above and below the current line which contain words that 
begin on the first character of the line, stop when a line is reached which 
does not have a character in the first position. The first line of the 
paragraph may begin with blank spaces. If this command is issued on a 
blank line then move forward in the buffer until a line containing words is 
reached. The words contained in the lines are formatted into a paragraph 
between the left edge and the fill column. The point is moved to the end 
of the new paragraph. 


insert-with-wrap 
This function is bound to the <Space> key when in auto-fill-mode. The 
function checks the current column and adds a newline character if past the 
fi11 column. 


set-fill-column [ Ctr1-X F ] 
Specify the display column to be used as the fill column, this column will 
serve as the left margin of paragraphs. The current cursor position is 
used as the fill column designator. The fill column may also be specified 
by ARG. 


Expression Commands 


eval-current-buffer 
The contents of the current buffer is assumed to contain expressions to be 


evaluated. The expressions in the buffer are evaluated, each expression is 
an EMACS function. 


eval-expression 
The command prompts for an expression. The expression is evaluated and 
executed, each expression is an EMACS function. 


load 
The command prompts for the name of the file to evaluate. Load and 
evaluate a file containing expressions, each expression is an EMACS 
function. The contents of the file is not loaded into a buffer 


Miscellaneous Commands 





auto-indent-mode 
Toggle auto indent mode, this mode causes the point to be placed on the 
same column as the first word in the first non blank line above the current 
line. This operation occurs after pressing the <RETURN> key at the end of 
a line. This function works by swapping the bindings of the <RETURN> key 
and Ctr1-j key. 
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blink-matching-paren 
Causes EMACS to check for balanced parenthesis. This means each "(" must 
have a corresponding ")". The check is performed at the time the character 
")" is pressed. If the corresponding "(" is visible in the current window 
the cursor is moved to the "(" character and then returned to the original 
position. If the corresponding "(" is not visible in the current window 
the line which contains the matching "(" is displayed on the echo line. 
Finally, if the user types ")" and a matching "(" character can not be 
found, the display will blink to alert the user. To disable the checking 


for balanced parenthesis, invoke this command with a preceding ARG set to 
zero. 


blink-matching-paren-hack 
When the blink-matching-paren is invoked the character "(" is rebound to 
this command rather than to the self-insert-command. EMACS can also be 
forced to check for balance of the following characters "[ ]", "{ }" or "< 
>". To cause EMACS to check for one of these other characters bind the 
right character of the pair to this command. 


ctr1x-four-hack [ Ctr1-X 4 ] 
This command provides support for commands which begin with Ctr1-X 4. This 


command is normally executed in a sequence with other keys to direct an 
action to occur in another window. 


delete-horizontal-space [ Ctri-\ ] 
Deletes the white space characters(spaces and tabs) to the left and right 
of the point until a non white space character is encountered or until the 
end or the beginning of the line is reached. 


exchange-point-and-mark [ Ctr1-X Ctr1-X ] 
Exchange the point with the mark. The command will fail if no mark has 
been set in the current window. This command is useful for jumping to the 
beginning and to the end of a region. 


execute-extended-command [ Esc-X ] 
The command prompts for the name of a function to execute. The purpose of 
this function is to allow the execution of functions not currently bound to 


any keys or if the user cannot remember the key associated with a given 
function. 


free-mem-avail [ Shift-F5 ] 
Display on the echo line the amount of free memory currently available in 
the system. Due to memory fragmentation there may not be enough contiguous 
memory to perform the desired operation even when the free memory display 
indicates sufficient memory is available. 


insert-newline [ Return ] 


This command inserts a newline character, it is normally bound to the 
return key. 
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just-one-space [ Esc-Space ] 
Deletes all white space character(spaces and tabs) to the left and right of 
the point until a non white space character is encountered or until the end 
or the beginning of the line is reached. Then insert one white space 
character at the point. 


keyboard-quit [ Ctr1-G J] 
This command may be used from almost anywhere in EMACS to abort the current 
operation. This command is not valid in the file requester window. 


newline-and-indent [ Ctri-J ] 
Insert a newline character and advance the point to the next line, the 
point is placed on the same column as the first non space character on the 
first non-blank line above the current line. Performs the same function as 
the <RETURN> key while in auto-indent-mode. 


open-line [ Ctri-0 J 
Insert a newline character at the current point position. This effectively 
splits the line at the position of the point. 


overwrite-mode 
Toggle overwrite mode, this mode causes characters typed into a buffer to 
overwrite the characters already in the buffer rather than inserting new 
characters. However, when at the end of a line or the end of a buffer, 
characters typed are inserted as if EMACS was in insert mode. 


prefix-region 
Prefix each line between the point and the mark with the string specified 
by the set-prefix-string command. If an ARG is used the command will 
prompt for the string to be used instead of using the currently specified 
prefix string. The default prefix string si ales 


redraw-display 
Forces EMACS to redraw the entire display. This command may need to be 
executed to restored the display after it has become damaged. 


quoted-insert [ Ctri-Q ] 
The next key pressed is taken literally and inserted into the buffer. This 
command allows the entry of any control character key combination. 


self-insert-command 
Insert the character associated with the given key at the point. This 
function is normally bound to all of the normal typewriter keys. 


set-mark-command [ Ctr1-@ ] 
Set the mark at the current position of the point. 


set-prefix-string 
Specify the string to be used by the prefix-region command. The specified 
string may be later used by the prefix-region command to prefix lines with 
a given string. The default prefix string Tse >ke 
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suspend-emacs [ Ctrl-Z ] 
Open a new AmigaDOS command line interface(CLI) in a new window. Since the 


AmigaDOS operating system supports multi-tasking, the editor can continue 
to be used after issuing this command. 


transpose-chars [ Ctr1-T ] 


The character at the current point position is swapped with the previous 
character. If this command is issued at the beginning of a line, nothing 
happens. 


what-cursor-position [ Ctr1-X = ] 
Display information on the echo line about the position of the cursor. The 


following is an example of the information which may be displayed and the 
meaning of each component: 


Char: A (8101) point=7(17%) line=2 row=2 col=5 


A - character at the current position 

(@101) - an octal code for the character 

point - character position relative to start of buffer 
(17%) - character position as percentage of buffer size 
line - the line relative to the beginning of the buffer 
row - the row relative to the top of the window 

col - the column relative to the top of the window 


Mouse Commands 


amiga-mouse 


Set point to the character that is closest to where the mouse pointer is 


located. If the point is already at the location of the mouse then set the 
mark to the position of the point. 


mouse-recenter, mouse-kill-word, mouse-kill-line, 

mouse-delete-char, mouse-just-one-space, mouse-kill-region, 

mouse-yank 
These commands are executed by a mouse click in the text area of a window. 
The point is moved to the current position of the mouse pointer and then 
the command of the specified name is executed. For example 
"“mouse-recenter" would execute the "recenter" command. 


mouse-scroll-up, mouse-scroll-down, mouse-split-window-vertically 

mouse-delete-window, mouse-beginning-of-buffer, 

mouse-end-of-buffer, mouse-enlarge-window, mouse-shrink-window 
These commands are executed by a mouse click on the mode line of a window. 
The point is restored to the its original position for the window with 
which the mode line is associated and then the command of the specified 


name is executed. For example "“mouse-scroll-up" executes the command 
"scroll-up", 
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Display Setup Commands 


set-mode-background 
The command prompts for the background color to be used for displaying the 
mode line. The background color may be specified as a value between zero 
and seven. 


set-mode- foreground 
The command prompts for the foreground color to be used for displaying the 


mode line. The foreground color may be specified as a value between zero 
and seven. 


set-mode-rendition 


The command prompts for the attributes to be used for displaying the mode 
line. The available attributes are: 


@ - plain 

1 - bold 

3 - italic 

4 - underline 

7 - reverse video 


set-text-background 
The command prompts for the background color to be used for displaying 


text. The background color may be specified as a value between zero and 
seven. 


set-text-foreground 
The command prompts for the foreground color to be used for displaying 


text. The foreground color may be specified as a value between zero and 
seven. 


set-text-rendition 


The command prompts for the attributes to be used for displaying text. The 
available attributes are: 


@ - plain 

1 - bold 

3 - italic 

4 - underline 

7 - reverse video 


toggle-window-hack 
Toggles EMACS window between a non-resizable window(borderless) and a 
resizable window. When the window is borderless the window will occupy the 
entire display. When toggled back to a window with borders it will return 
to its previous size. 
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Modula-2 Compiler Commands 





m2-comp-load [ F8 J] 
The command prompts for the argument string to be passed to the compiler. 
To load the compiler the command searches the current directory for the 
file "M2". If the compiler is not found in the current directory the 
AmigaDOS PATH will be searched and finally the "C:" directory is searched. 
After the compiler is loaded a message "Compiler Loaded." is displayed or 
an appropriate error message is displayed if a problem is encountered. 


m2-comp-unload [ Shift-F8 ] 
Removes the compiler from memory if it is currently loaded. The memory 
occupied by the compiler may now be freely used for other purposes. This 
command is automatically executed when exiting the editor. 


m2-comp-current-buffer [ F2 ] 
The current buffer is compiled. After compilation a message is displayed 
indicating the number of errors encountered. If the compilation is 
successful a symbol or object file is generated. 


m2-comp-buffer [ Shift-F2 ] 
The command prompts for the name of the buffer to be compiled. The 
specified buffer is compiled. After compilation a message is displayed 
indicating the number of errors encountered. If the compilation is 
successful a symbol or object file is generated. 


m2-comp-file [ F5 J 
The command prompts for the name of the file to be compiled or creates a 
file request window, determined by the state of the "file-req-mode". The 
specified file is compiled. After compilation a message is displayed 
indicating the number of errors encountered. If the compilation is 
successful a symbol or object file is generated. 


m2-err-current-error [ F1-Shift ] 
Moves the point to the location of the current compilation error. The 
error message associated with the error is displayed on the echo line and 
placed into the title bar of the window. The buffer containing the error 
is displayed in the current window, if it is not already there. 


m2-err-next-error [ Fl ] 
Moves the point to the location of the next compilation error. The error 
message associated with the error is displayed on the echo line and placed 
into the title bar of the window. The buffer containing the error is 
displayed in the current window, if it is not already there. 


set-m2-comp-opt 
This command is used to control various compiler options interactively. 
The changes made by this command are temporary and only stay in effect 
while the current instance of the compiler is loaded. If EMACS is exited 
or the compiler is unloaded the changes are discarded. The default value 
for each compiler options is displayed, a new value may be specified or 
press <RETURN> to skip to the next option. If an invalid value is 
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specified the display will flash. 


set-m2-comp-stack-size 
The command prompts for the amount of stack space to be allocated for the 
compiler. Pressing <RETURN> without entering a new number, will keep the 
same size as previously set. This command may only be issued while the 
compiler is not loaded. By default the stack size is set to 10000. 


set-m2-err-count 
The command prompts for a value specifying the maximum number of errors to 
be remembered after a compilation. By default this number is 20, meaning 
that only the first 20 compilation errors will be remembered. To remember 
all the errors generated by the compiler set the error count to zero. 


Modula-2 Linker Commands 

m2-link-main [ F3 ] 
Perform a link operation on the module currently specified as the "main" 
module. If the “main” module has not been specified with the 
set-m2-main-module command an error message will be displayed. The 
specified module is linked with the necessary library modules and an 
executable file is generated. 


m2-link-module [ Shift-F3 ] 
The command prompts for the name of the module to be linked. The specified 
module is linked with the necessary library modules and an executable file 
is generated. 


set-m2-link-out-dir [ Shift-F6é ] 
The command prompts for the name of the directory to which the executable 
file generated by the linker should be sent. To reset the output directory 
back to the current directory press <RETURN>. 


set-m2-link-gen-sym [ Shift-F7 ] 

This command is used to control certain linker options. Each option is 
specified as a TRUE or FALSE value. At each prompt type "T" to set the 
option to TRUE, "F" to set the option to FALSE, <RETURN> to advance to the 
next prompt without changing or Ctri-g to abort without making a change 
Three prompts are presented for examining or changing options. The first 
one asks if special information for use with a source Jevel debugger should 
be generated. The second prompt asks if symbols should be added to the 
executable file for symbolic debugging, and the last prompt asks if symbols 
added to the executable should be prefixed with the name of the module. If 
the source level debug information option is set to TRUE then the second 
option to generate symbols should be set to FALSE and vise versa. 


set-m2-main-module [ F6 ] 
The command prompts for the name of the "main" module, the module which is 
the root of the Modula-2 program being worked on. The m2-link-main 
command may be used to link the "main" module without having to specify the 
name of the module each time a link operation is needed. 
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set-m2-obj-dir [ F7 J 
The command prompts for one or more names of directories which are to be 
searched for library modules during the linking process. The directories 
are listed on the same line, separated by a space character. 


Modula-2 Run Commands 


m2-run-main [ F4 ] 

Run the module currently specified as the "main" module. An output window 
is created and the executable file with the same name as the "main" module 
is invoked. The executable file is loaded from the Jinker’s output 
directory. After the program finishes type <RETURN> in the output window 
to close the window. The user program is executed in parallel with EMACS 
so editing may continue even while the program is running. Any number of 
user programs may be executed simultaneously. 


m2-run-module [ Shift-F4 J] 

This command prompts for the name of a module to be executed. An output 
window is created and the executable file with the same name as the 
specified module is invoked. The executable file is loaded from the 
linker’s output directory. After the program finishes type <RETURN> in the 
output window to close the window. The user program is executed in 
parallel with EMACS so editing may continue while the program is running. 
Any number of user programs may be executed simultaneously. 


set-m2-run-args 
This command prompts for an argument string to be passed to user programs 
invoked from EMACS. This arg string is passed to the user program as if 
the program was executed from the CLI with arguments. 


set-m2-run-stack-size 
This command displays the default stack size specified for user programs. 
A new stack size value may be specified or press <RETURN> to keep the 
current default. This command should be used with care, if the stack size 
value is too small for the program being run the system will probably 
crash. By default the stack size is set to 20000 bytes. 


set-m2-run-window 

This command display the default output window specification. A new window 
specification may be specified or press <RETURN> to keep the current 
default value. A window specification may specify a "RAW:" or "CON:" 
window, for more information on this refer to the AmigaDOS technical 
documentation. The window specification must end with a "/" character. 
The command does not check the validity of the window specification. 
However, an error message will be displayed when a program is actually 
invoked with an invalid window specification. The following are examples 
of valid window specifications: "RAW:@/0/640/200/" or "CON:@/8/100/100/"., 
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Modula-2 Error Lister 


This chapter describes the error lister program included in this package. 
The purpose of the error lister is to show the locations in the source file 
where the compiler has detected errors. It should be noted that most users will 
be using the integrated EMACS environment with its built in error tracking 
capability. The stand alone error lister is provided as an alternative for 
users who may wish to use an editor other than the EMACS editor included with 
the package. The other possible use for the stand alone error lister, is when 
performing batch compilation jobs, to examine the errors from all of the 
compiles. 


For additional information on the error messages refer to the section which 
describes the error messages which the compiler generates. 


Running the Error Lister 





The error lister program is called "M2Err". The syntax for the error lister 
is as follows: 


M2Err [Options] 


When the error lister is invoked it reads an error log file called "M2.err" 
from the directory "T:". If the compiler has not been used to compile a source 
file, the error log file will not exist. The error lister will display a 
message if it can not find the error log file. 


If an error log file exists the error lister will list the errors 
encountered for each source file compiled. The listing of errors is in one of 
two formats. The format used if dependent on the ability of the error lister to 
find the source file associated with the errors. 


If the error lister finds the source file than each error is displayed in 
the following format: 


Flag := TestCond; <-- source line 
‘ <-- error position in line 
line: 10 err: 058 identifier not declared on not visible <-- info 


If the error lister can not find the source file than each error is 
displayed in the following format: 


pos: 000021 err: @50 identifier not declared or not visible 


The "pos" field is the byte offset of the error relative to the beginning of the 
file. 
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The error lister allows several command line options. Each option begins 
with the character "-" followed by a letter. The following is a list of the 
available options: 


* Ww 
Open a window to which the error list will be output. Choosing this option 
implicitly chooses the "-p" option to pause after each error is displayed. 


* 


Pause after each error is displayed. To continue press the <RETURN> key. 
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Modula-2 Compiler Configuration Utility 


This chapter describes a utility which may be used for customizing the 
configuration of the Modula-2 compiler. The configuration utility modifies the 
compiler executable file with the specified values. If you wish to change a 
compiler option temporarily it may be more practical to specify a compiler 
command line option. However, to change the compiler configuration permanently 
use the configuration utility. 


Running the Configuration Utility 





The name of the configuration utility is "M2Config". The syntax for 
running the configuration utility is as follows: 


M2Config [Options] <M2_FileName> 


The <M2_FileName> parameter specifies the filename of the Modula-2 compiler 
to be configured. If the compiler is not in the current directory then the full 
path to the compiler must be specified. 


The configuration utility allows several command line options. Each 
options begins with the character "-" follows by a letter. The following is 
a list of the available options: 


* -d 
Reset the compiler configuration to the default configuration values. The 


default configuration may use values which are to large for an Amiga with 
only 512K of memory. 


et 
Display the current compiler configuration without prompting the user to 
change the current configuration values. 


Examples: 
M2Config c:M2 ; Change configuration 
M2Config -s c:M2 ; Show configuration 
M2Config -d c:M2 ; Reset to default configuration 


If no options are specified to the M2Config utility then the current 
configuration is displayed and a prompt is given for each compiler parameter. 
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The current compiler configuration is displayed as follows, the actual 
values may vary from the ones listed below: 


Compiler FileName: c:M2 
ult ( ail Santeton Ait Se Groth ocopacaborc cc 150008 
Code Buffer Size... .. 32766 
Constant Buffer Size... 





-32766 









Identifier Buffer Size. -32766 
Disk Buffer Size........ - 1024 
Address Relocation Buffer Size. - 1000 
Range Checking............ «FALSE 


Overflow) CheckiNgen..rc.+-. eee = + 
Global Variables Absolute Addressing. ..FALSE 
Generate Reference File - FALSE 
Clean MOGUTC KEY cw cise eins en's icine FALSE 


«FALSE 





The values displayed represent the current configuration of the compiler. 
You will now be prompted to enter a new value for each of the above 
configuration parameters. The value listed in brackets is the current value. 
To avoid changing a parameter press <RETURN> when prompted to enter a new value. 


The numerical parameters in the compiler configuration may need to be made 
smaller if the compiler is going to be used from within the EMACS editor on an 
Amiga with only 512K of memory. 


A suggested compiler configuration for a 512K Amiga is as follows: 


Heap Size 80000 
Code Buffer Size 10000 
Constant Buffer Size 1000 
Identifier Buffer Size 17008 
Disk Buffer Size 1024 
Address Relocation Buffer Size 208 


These values are only suggested and may need to be adjusted based on the 
size of the Modula-2 programs actually compiled. 


The amount of memory actually required by the compiler can be calculated by 
summing the above specified compiler configuration values and adding in the size 
of the compiler program and its stack. It should be noted that the memory 
specified by the compiler configuration is only used while actually compiling so 
that while working with the EMACS editor performing editing the amount of memory 
actually used by the compiler is approximately 100K. 


Compiler Program 92000 
Compiler Stack 18088 
Sum of the Configuration Values XXXXX 


Total Amount of Memory Used XXXXX 
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Quick Load Utility 


This chapter describes the quick-load utility included with this package. 
The purpose of the quick-load program is to provide a very fast way of moving 
files to a ram disk device. The technique allows a very large number of files 
to be moved to a ram disk in a fraction of the time that would be require using 
the AmigaDOS "copy" command. 


The name of the quick-load program is "QLoad". The QLoad utility reads a 
specially formatted archive file called a quick-load file. The contents of the 
quick-load file is extracted and placed into a user specified directory usually 
Tesiding on the ram disk. A quick-load file is created once using the same 
QLoad utility. Thereafter the files contained in the quick-load file may be 
loaded into ram at an amazingly fast speed. The primary use of this utility is 
to copy the Modula-2 libraries to the ram disk, the quick-load file containing 
all of the Modula-2 libraries may be found on the library disk and is called 
"M2Lib". The other advantage of this utility is when a large number of files 
are stored in the quick-load file format they require much less disk space than 
if each file was stored separately. To save memory it may be useful to build a 
smaller version of the "M2Lib" file containing only the Modula-2 libraries which 
you actually use. 


Creating a File List 


In order to make a quick-load file a text file containing the names of all 
the files to be included must be created. An easy way to accomplish this is to 
use the AmigaDOS "List" command with the "Quick" option which lists the names of 
the files in a given directory without any other information. Direct the output 
of the "List" command to an output file using output redirection. The resulting 
output file should then be loaded into EMACS. The "List" command sometimes adds 
a header line and always adds a line to the end of the list, these extra lines 
should be eliminated from the text file and the file should be saved back to 
disk. It should be noted that the QLoad program does not handle file names with 
imbedded spaces! 


The following is an example of how a file list can be created using the 
AmigaDOS "List" command. Be sure to edit the file as described above before 
using it as a file list for the QLoad utility. 


List >ram:LibList df1:M2L/ quick 

The operation of the QLoad utility may be interrupted by the user by 
pressing the Ctr1-C key combination. The QLoad utility will return to the CLI 
without completing the operation being performed. 

The QLoad utility has two different command line formats. The command line 


option "-m" is used to switch between the formats, this option must be the first 
parameter on the command line. 
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Loading a Quick Load File 





QLoad <QuickFile> <OutputPath> 


The first format is used to load a quick-load file. The first parameter 
<QuickFile> specifies the filename of a quick-load file to be loaded. The 
second parameter <OutputPath> specifies the destination directory for the load 
operation, this parameter must end on either the ":" character or the "/" 
character. 


Examples: 


QLoad df@:M2Lib ram:M2L/ 
QLoad df@:Cmds ram: 


Making a Quick Load File 





QLoad -m <FileList> <QuickFile> 


The second format is used to make a quick-load file. The first parameter 
is the option "-m" designating the make mode. The second parameter specifies 
the name of the text file which contains the names of the files to be placed 
into the quick-load file. The third parameter specifies the name of the 
quick-load file to be created. 


When making a quick-load file it is recommended that the output be sent to 
tam disk and if possible the files to be included should be on ram disk. If the 


make operation is done entirely on floppy and the number of files is large the 
operation may take a long time. 


Examples: 


QLoad -m ram:LibList ram:NewLib 
QLoad -m ram:CmdList ram:Cmds 
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Modula-2 Procedure Statistics Utility 


This chapter describes a utility which may be used in determining which 
procedures in a Modula-2 program are being called most of the time. The output 
of this utility is a file containing a count of the number of times each 
procedure was called. The list of procedures is sorted from the most called to 
the least called. Procedures which are never called are dropped from the list 
automatically. 


Running the Statistics Utility 





The name of the utility program is "M2Stat". The command line syntax is as 
follows: 


M2Stat <ProgFileName> [ProgParameters] 


The <ProgFileName> specifies the name of the program to be analyzed. If 
the program is not in the current directory then the full path should be 


specified. The [ProgParameters] are any parameters which should be passed to 
the program being analyzed. 


For the M2Stat utility to work properly the program being analyzed must be 
compiled and linked with symbols. For instructions on how to add symbols to a 
program refer to the appropriate sections of the compiler and linker chapters. 
The process of adding symbols is the same as would be used for debugging a 
program with a symbolic debugger. 


When analyzing a program with the M2Stat utility it may run slower than it 
would normally run by itself. The degree to which the program will be effected 
depends on the specific program and to what extent it uses procedure calls. 


After the program being analyzed exits the M2Stat utility will create a 
text file in the directory from which the program was executed. The text file 
contains a line for each procedure called along with the number of times that 
procedure was called. The name of the generated output file is taken from the 
name of the program being analyzed and adding the extension ".stat". 


Examples: 


M2Stat Draw 640 200 3 
M2Stat RayTrace 
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Symbol File Cross Reference Utility 


This chapter describes the symbol files cross reference utility program. 
This cross reference utility unlike other cross reference utilities does not 
read a source text file extracting the identifiers, rather it reads compiler 
generated symbol files. The other unique feature of this program is that it can 
perform a batch operation processing many files at one time. The AmigaDOS 
"Sort" utility can be used to sort the output of the cross reference utility. 





Running the Cross Reference Utility 


The name of symbol cross reference program is "M2SymXRef". The command 
line syntax is as follows: 


M2SymXRef <FileList> <OutputFile> 


The first parameter <FileList> is a text file containing the names of all 
the files to be processed. An easy way to create a file list is to use the 
AmigaDOS "List" command with the "Quick" option which lists the names of the 
files in a given directory without any other information. Direct the output of 
the "List" command to an output file using output redirection. The resulting 
output file should then be loaded into EMACS. The "List" command sometimes adds 
a header line and always adds a line to the end of the list, these extra lines 
should be eliminated from the text file and the file should be saved back to 
disk. It should be noted that the M2SymXRef utility does not handle file names 
with imbedded spaces! The second parameter <OutputFile> designates the file to 
which output of the cross reference utility should be sent. 


The following is an example of how a file list can be created using the 
AmigaDOS "List" command. Be sure to edit the file as described above before 
using it as a file list for the M2SymXRef utility. 

List >ram:LibList df1:M2L/ quick 


The output file created by M2SymxXRef contains a line for each identifier, 
with the following information on each line. 


<Identifier> <ModuleName> <ObjectClass> 


<Identifier> - Identifier 
<ModuleName> - Definition appears in this module 
<ObjectClass> - CONST, TYPE, VAR, PROCEDURE 


The following is a short sample of the output from the M2SymXRef utility. 


Lookup FileSystem PROCEDURE 
Close FileSystem PROCEDURE 
Examples: 
M2SymXRef LibList sxref ; Generate xref 
Sort sxref TO sxref.sorted ; Sort xref 
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Object Module Generator Utility 


This chapter describes a utility included in this package which converts an 
Amiga load file into an object module acceptable to the Modula-2 linker. The 
primary use of this utility is to allow modules to be written in assembly 
language. For additional information refer to the section of this manual which 
describes how to interface to assembly language. 


Running the Object Module Generator 





The name of the object module generator program is "M2Gen0BM". The command 
line syntax is as follows: 


M2Gen0BM [Options] <InputFileName> [OutputFileName] 


The <InputFileName> specifies the root for the name of the files to be 
read. The conversion program adds the extension ".SBM" to read the symbol file 
and the extension ".COD" to read the load file. The [OutputFileName] parameter 
may optionally be specified to force the output file to be sent to a different 
directory. For example: 


M2Gen0BM RAM:StringsLib 

Input Symbol File: RAM:StringsLib.SBM 
Input Load File: RAM:StringsLib.COD 
Output Obj File: RAM:StringsLib.OBM 


M2Gen0BM I0Port DF1:10Port.0BM 
Input Symbol File: I0OPort.SBM 
Input Load File: IOPort.COD 
Output Obj File: ODF1:10Port.0BM 


The following command line options may be specified. A command line option 
begins with the character "-" followed by a letter. The following is a list of 
the available options. 


* =m 
Ignore modules imported by the definition module. Using this option will 
create a smaller object file and will not force the linker to automatically 
link in unnecessary modules. 
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The object file conversion program displays status information about the 
module being converted. The following is a typical example of the information 
which may be displayed. 


Input Symbol File = Tasks. SBM 
Input Amiga Load File = Tasks.COD 
Output Modula-2 Object File = Tasks.OBM 
Generating Module: 

Key = 353 123 091 Name = Tasks 

Modules Imported by DEFINITION: 

Key = 234 655 566 Name = Nodes 

Key = 545 767 123 Name = Lists 


DEFINITION Procedures = 
DEFINITION Modules =2 

DEFINITION Variable Size =m16 
IMPLEMENTATION Variable Size = 12 
IMPLEMENTATION Code Size =) 122 


Description: 


Generating Module 
The name and key of the module being generated. 


Modules Imported by DEFINITION 
The list of modules imported by the definition module. 


DEFINITION Procedures 
Number of procedures defined in the definition module. 


DEFINITION Modules 
Number of modules imported by the definition module. 


DEFINITION Variable Size 
Total size of variables defined in the definition module. 


IMPLEMENTATION Variable Size 
Total size of variables defined in the implementation module. 


IMPLEMENTATION Code Size 
Total size of code defined in the implementation module. 
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Assembly Language Interface 


This chapter describes how to write modules in assemble language which may 
be called by other modules written in Modula-2. In some circumstances it may be 
desirable to implement a module of a program in assemble language rather than 
Modula-2. If the amount of assembly language code is very short it may be 
practical to use the INLINE, REG and SETREG procedures defined in the SYSTEM 
module to implement the assembly language code. For assembly language 
subroutines of any significant size the above mentioned facility is not very 
practical, instead the full assembly language interface described in this 
chapter should be used. 


Background Information 


The technique of linking used by Modula-2 is sufficiently different from 
the schemes used for languages such as "C", PASCAL and FORTRAN that a different 
format had to be used to represent object files accepted by a linker. This 
object format is not directly compatible with the object format used by Amiga 
Assembler and the above mentioned languages. Since this package does not 
include an assembler the Amiga Assembler must be used to write modules in 
assembly language. A conversion program is then used to convert from the Amiga 
format to a format acceptable to the Modula-2 linker. The following steps are 
required to create an assembly language module: 


* Compiling the definition part of the module with the compiler 
* Assembling the implementation part with the assembler 

* Linking the Amiga format object file into a load file 

* Converting the load file to a Modula-2 object module 


The following is a detailed description of each of the steps which must be 
performed. 


Compiling the Definition Module 





An assembly language module must have a definition part which is written in 
Modula-2. This allows any client module to use the module as if it were a 
normal Modula-2 library module. This technique is employed by many of the 
library modules supplied with this system. The definition module may contain 
constants, types, variables and procedure headings. 


The definition module is processed by the compiler and a symbol module 


(.SBM) is generated. This file will be imported by the clients of this module, 
it is also read in by the object file converter program. 


Assembling the Implementation Module 





The assembly language file is written with the help of the special macros 
defined in the include file "M2Lib.i" and in some cases the include file 
"System Map.i". In order to construct a valid Modula-2 object module the macros 
defined in "M2Lib.i" must be utilized. The macros automatically build the 
header and the tables needed for a valid object file. Refer to the example 
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assembly language module listed at the end of this chapter for the usage of the 
macros. One very useful function of the macros is to generate labels for local 
variables and to alert the user of any errors at assembly time. 


The assembly language source must be assembled by an assembler which will 
generate an ALink compatible object file. The file may contain external 
references to Amiga library offset labels, but it must not contain external 
references to any functions. Another words the file must be self contained with 
the exception of the library offset labels, i.e. LVO. 


Linking the Object File 


The object file generated by the assembler must be linked, even if it does 
not contain any external references. If the link operation is successful a load 
file will be generated by the linker. This load file must be in a format 
acceptable to the object file converter program included with this package. 


Converting to an Object Module 





This is the last step in creating a Modula-2 compatible object module from 
an assembly language file. The conversion from the above mentioned load file to 
an object module is done using the program "“M2Gen0BM" included in the package. 
For additional information refer to the chapter of the manual which describes 
the "M2Gen0BM" program. The program requires the following input files. 


* Load file generated by the Amiga linker (extension .COD) 
* Symbol file generated by the Modula-2 compiler (extension .SBM) 


As output the program produces an object module file with the extension 
".0BM". If the operation is successful the object module generated may later be 
linked with other modules by the Modula-2 linker to produce an executable 
program. - 
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Example Conversion Batch File 





The following is an example of a batch file which may be used to 
automatically generate a symbol and object module from a definition module and 
an assembly language implementation module. 


MakeAsm: 


.Key module/a 

M2 <module>.def ; Create symbol module 
Asm <module>.asm -o <module>.o Create obj file 
ALink <module>.o LIB Amiga.1ib TO <module>.cod Create load file 
Delete <module>.o Delete obj file 
M2Gen0BM -m <module> Create object module 
Delete <module>.cod Delete load file 


Example of usage: Execute MakeAsm XText 


Example of an Assembly Language Module 





This subsection contains an example of a module written in assembly 
language. The example shown is actually the library module "Exec" included in 
this package. The major difference between this example and user created 
assembly language programs will be that a user module will have more code, this 
module makes calls to the Amiga’s ROM Kernel. 

Modula-2 Definition Module: Exec.def 
DEFINITION MODULE Exec; 
FROM SYSTEM IMPORT ADDRESS; 
CONST 

ExecName = "exec. library"; 
PROCEDURE Debug; 
PROCEDURE GetCC(): BITSET; 


PROCEDURE RawDoFmt(FormatString: ADDRESS; DataStream: ADDRESS; 
PutChProc: ADDRESS; PutChData: ADDRESS) ; 


PROCEDURE SetSR(newSR, mask: BITSET): BITSET; 
PROCEDURE SumKickData; 


END Exec. 
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Assemble Language Implementation Module: Exec.asm 


INCLUDE ’M2/M2Lib.i” 
REFLIB Debug 
REFLIB GetCC 
REFLIB RawDoFmt 
REFLIB SetSR 
REFLIB SumKickData 


DEFINITION PROCEDURES 5 


DEF_PROC MODULE BODY 
DEF _PROC Debug 
DEF_PROC GetCC 
DEF_PROC RawDoFmt 
DEF_PROC SetSR 
DEF_PROC SumKickData 


DEFINITION MODULES @ 
DEFINITION VARIABLES 
IMPLEMENTATION VARIABLES 
START_CODE 

PARAMETER LIST 4,0 
END_PARAMETER_LIST 
PROCEDURE CODE MODULE_BODY 
EMPTY MODULE_BODY 


PARAMETER LIST 4,0 
END_PARAMETER_LIST 


PROCEDURE_CODE Debug 
move.L AbsExecBase,A6 
JUMP 


Debug 





PARAMETER LIST 4,0 
END_PARAMETER_LIST 





PROCEDURE CODE GetCC 

move.L AbsExecBase,A6 

JUMP GetCc 

PARAMETER_LIST 4,16 

VAR RawDoFmt_FormatString, ADDRESS 
VAR RawDoFmt_DataStream, ADDRESS 
VAR RawDoFmt_PutChProc, ADDRESS 
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VAR RawDoFmt_PutChData, ADDRESS 
END_PARAMETER_LIST 


PROCEDURE_CODE RawDoFmt 
move. RawDoFmt_FormatString(A7) ,Ad 
RawDoFmt_DataStream(A7) ,A1 
RawDoFmt_PutChProc(A7) ,A2 
RawDoFmt_PutChData(A7) ,A3 
AbsExecBase, A6 

JUMP RawDoFmt 

PARAMETER_LIST 4,4 

VAR SetSR_newSR,BITSET 

VAR SetSR_mask,BITSET 

END_PARAMETER_LIST 


3 

°o 

< 

oO 
imme ie 


PROCEDURE_CODE SetSR 
move.W SetSR_newSR(A7) ,D8 
move.W SetSR_mask(A7) ,D1 
move.L AbsExecBase,A6 
JUMP SetSR 
PARAMETER_LIST 4,0 
END_PARAMETER_LIST 


PROCEDURE CODE SumKickData 
move.L AbsExecBase,A6 
JUMP SumKickData 


END_CODE 
END 
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Module ASCII 


The module ASCII is available in many Modula-2 implementations and contains 
constants which represent the non-printable ASCII codes. In addition, the 
module contains some useful procedures for determining if a character is an 
ASCII, control or printable character. 
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NAME 
CharIsASCII, CharIsControl, CharIsPrintable - determine character type 
SYNOPSIS 
CharIsASCII(Ch: CHAR): BOOLEAN; is Ch an ascii character 
CharIsControl(Ch: CHAR): BOOLEAN; is Ch a control character 
CharIsPrintable(Ch: CHAR): BOOLEAN; is Ch a printable character 


Ch - character to be tested 


result - TRUE if satisfies test condition 
FALSE if fails test condition 


DESCRIPTION 


The above listed procedures return TRUE if a character is of a specific type 


or FALSE if a character is of a different type. 


EXAMPLES 


The following example scans a string until it encounters a non ASCII 


character or the end of the string. 


VAR 
str : ARRAY [@..127] OF CHAR; 
i : CARDINAL; 
BEGIN 
dene; 
WHILE (str[i] # QC) AND (CharIsASCII(str[i])) 00 
INC(i); 


END; 
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Module Conversions 


The Conversions module provides functions for binary to ASCII and ASCII to 
binary conversions. The functions in this module operate on strings and are 
therefore not bound to any specific I/O device. For maximum flexibility 
the function in this module support signed or unsigned numbers of any base. 
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NAME 


ConvStringToNumber - ASCII to binary conversion 


SYNOPSIS 
ConvStringToNumber(string: ARRAY OF CHAR; 


VAR num: LONGWORD; 
signed: BOOLEAN; 
base: CARDINAL): BOOLEAN 


string - string containing a number 

num - variable to store binary number into (any 32-bit type) 
signed - TRUE = signed number, FALSE = unsigned number 

base - the base of the number to be parsed 


result - TRUE if valid number, FALSE if invalid number 


DESCRIPTION 
Converts a string which is expected to contain a valid number into its 


binary equivalent. 


Leading spaces are allowed and will be skipped. If the 


number is specified to be unsigned and a “-" character is found the number 
is considered invalid. The base of the number determines the type of number 
which will be allowed, for example: 


BASE 
2 

8 
10 
16 


any RE: 
binary 
octal 
decimal 
hexadecimal 


The converted binary number will be stored into the num parameter, but only 
if the number is valid. 


EXAMPLES 
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VAR 


Ss : ARRAY [@..39] OF CHAR; value : LONGCARD; 


BEGIN 


ReadString(s); 


IF NOT ConvStringToNumber(s, value, FALSE, 10) THEN 
WriteString("Invalid Number Entered"); 


END; 


Module Conversions 


NAME 
ConvNumberToString - binary to ASCII conversion 


SYNOPSIS 
ConvNumberToString(VAR string: ARRAY OF CHAR; 
num: LONGWORD; 
signed: BOOLEAN; 
base: CARDINAL; 
digits: CARDINAL; 
padChar: CHAR); 


string - buffer large enough to hold the output string 

num - number to be converted (any 32-bit type) 

signed - TRUE = high bit represents sign of number 
FALSE = unsigned number 

base - base of number being converted 

digits - the minimum number of digits to output 

padChar - leading character, usually "O" or " " 


DESCRIPTION 
Convert a binary number into a string. The resulting string is stored into 
the parameter string. The actual string must be large enough to accommodate 
the generated string. The digits parameter determines the minimum length of 
the output string. The ASCII number is right justified in the string, the 
remaining characters are filled with the padChar. If the number being 
converted is specified as signed, and its high-bit is 1 then a "-" character 
will be output. As with the ConvStringToNumber procedure the base of the 
number can be changed to display the number in a different base, for 


example: 
BASE TYRE 
2 binary 
8 octal 
10 decimal 
16 hexadecimal 
EXAMPLES 


The following example demonstrates how the binary to ASCII conversion 
function may be used. This example converts a value into a hexadecimal 
number with a width of 8 and padded with the character "9". 


VAR 


outStr : ARRAY [@..39] OF CHAR; 
BEGIN 


ConvNumberToString(outStr, value, FALSE, 16, 8, "O"); 
WriteString(outStr) ; 
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Module FileSystem 


The standard module FileSystem is available in most implementations of 
Modula-2. This module provides procedures for handling low level I/0. These 
procedures handle I/O very efficiently by buffering both read and write 
operations. In addition this module sets no limit on the number of files which 
may be open simultaneously, except system memory constraints. 


Most of the procedures in this module take a file structure as the first 
parameter. The file structure contains all of the information to keep track of 
an open file. Only the procedures in the FileSystem module are allowed to 
change the values in any of the fields of the file structure. Some of the 
fields in the File structure may be read by the user. The File structure is 
defined as follows: 


TYPE 
Response = (done, notdone, nomemory) 
File = RECORD 
res : Response; (* read only *) 
eof : BOOLEAN; (* read only *) 
err : LONGINT; (* read only *) 


END; 
res - is an enumeration which is set to done, notdone or nomemory. The 
nomemory response can only occur after a Lookup operation. After all other 


Operations the res field will contain done meaning the operation was successful 
or notdone meaning the operation failed. 


eof - is a flag which may be set to TRUE after a read operation which 
encountered the end of a file. 


err - is used to store the error code returned by the AmigaDOS IoErr 
function, this field may be checked when an operation has failed. This field is 
only valid when the res field is set to notdone. 


The rest of the fields in the File structure are considered private and 
should not be read or written. 


The FileSystem module also defines a variable BufferSize. This variable is 
read by the Lookup procedure to determine how much buffer space to allocate for 
the file. By default this variable is set to 1024, this has been found to 
produce good disk I/O performance. The value may be changed by a user program 
before performing a Lookup call. Each open file may have a different buffer 
size specified. For I/0 intensive applications it may be useful to experiment 
with the BufferSize to find a good level of performance. 


To avoid loosing data or corrupting the data on a disk, all files opened by 


a program should be explicitly closed by the program. The Modula-2 run-time 
support functions will not automatically close a program’s files upon exit. 
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NAME 
Close - close a currently open file 


SYNOPSIS 
Close(VAR f: File); 


f - File structure 


DESCRIPTION 


Close a currently open file. If the file’s buffer has been changed it will 
be written to disk automatically. After the file is closed the File 
variable may be reused for opening another file. 


EXAMPLES 
This example closes a file to which data was being output. The res field of 


the File structure is checked to make sure that no errors occurred when the 
disk buffer was written to disk. 


VAR out : File; 
BEGIN 
“Close(out); 
IF out.res # done THEN 


WriteString("Output File Error!"); 
END; 
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Module FileSystem 
NAME 
Delete - delete a file from the file system 


SYNOPSIS 
Delete(filename: ARRAY OF CHAR); 


filename - name of file to be deleted 
DESCRIPTION 
Deletes a file of a specified filename. If the filename does not exist, 
nothing happens. 
EXAMPLES 
BEGIN 


‘Delete("init.dat"); 
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Lookup - open an old file or a new file 


PSIS 
Lookup(VAR f: File; filename: ARRAY OF CHAR; new: BOOLEAN); 


f - File structure 
filename - name of file to open 
new - FALSE = open existing file, TRUE = open new file 


RIPTION 

Attempts to open a file of a specified filename. If the new parameter is 
TRUE then a new file is created, if a file of the same name already exists 
it is automatically deleted. If the new parameter is FALSE then an existing 
file of the same name must already exist. If the specified file could not 
be opened the res field of the File structure is set to notdone. The Lookup 
function may fail if not enough memory exists to allocate the disk buffer 
for this file, in this case the res field of the File structure is set to 
nomemory. 


PLES 


This example attempts to open an existing file and checks if the file has 
been opened successfully. 


VAR out : File; 


BEGIN 
Lookup(out, “test.dat", FALSE); 
IF out.res # done THEN 
WriteString(" ’test.dat’ data file not opened!"); 
END; 
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SetPos - move the file pointer to a new position 


PSIS 
SetPos(VAR f: File; VAR pos: LONGCARD); 


f - File structure 
pos - new file pointer position relative to beginning of file 


RIPTION 

Move the file pointer to a new position. This operation is very efficient 
if the new position is within the current buffer, otherwise the current 
buffer will be written to disk and a new buffer loaded. The file pointer 
can not be moved to a position beyond the end of the file. After the file 
pointer is moved all read and write operations will be from the new 
position. 


PLES 
In this example the file pointer is moved to the beginning of a file. 


VAR inFile : File; 
BEGIN 


“SetPos(inFile, 0D); 
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NAME 
GetPos - return the current file pointer position 


SYNOPSIS 
GetPos(VAR f: File; VAR pos: LONGCARD); 


f - File structure 
pos - store the current file pointer into this variable 


DESCRIPTION 
Get the current file pointer position and store it into the parameter pos. 


EXAMPLES 
The following example moves the file pointer to a new position writes out 
the character "." and then restores the file pointer to its original 
position. 


VAR out : File; oldPos, newPos : LONGCARD; 
BEGIN 

“GetPos(out, o1dPos) ; 

SetPos(out, newPos); 


WriteChar(out, "."); 
SetPos(out, oldPos); 
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Module FileSystem 
NAME 
Length - return current length of file 


SYNOPSIS 
Length(f: File; VAR length: LONGCARD); 


f - File structure 
length - store length of file into this variable 


DESCRIPTION 
Determines the current length of a file and stores it into the parameter 


length. The length is the actual number of bytes in the file. This is not 
necessarily the same as the amount of disk space taken up by the file, 
because the operating system rounds the file to the nearest block. 

EXAMPLES 
VAR in : File; flength : LONGCARD; 
BEGIN 


‘Length(in, flength); 
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NAME 
ReadWord - read a word(16-bits) of data from a file 


SYNOPSIS 
ReadWord(VAR f: File; VAR w: WORD); 


f - File structure 
w - variable to store the data in (any 16-bit type) 


DESCRIPTION 
Read a word of data from a file starting at the current file pointer 
position. The data is stored into the parameter w, the actual parameter 
must be a 16-bit variable. 

EXAMPLES 
VAR inFile : File; count : CARDINAL; 
BEGIN 


“ReadWord(inFile, count) ; 
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Module FileSystem 
NAME 
WriteWord - write a word(16-bits) of data to a file 


SYNOPSIS 
WriteWord(VAR f: File; w: WORD); 


f - File structure 
w - a word value to be written 


DESCRIPTION 
Output a word(16-bits) of data at the current file pointer position. In 
most cases the data is stored into a buffer and later when the buffer is 
full the data is written to disk. 

EXAMPLES 
VAR outFile : File; x, y : CARDINAL; 
BEGIN 


“WriteWord(outFile, x); 
WriteWord(outFile, y); 
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NAME 
ReadChar - read a character from a file 


SYNOPSIS 
ReadChar(VAR f: File; VAR ch: CHAR); 


f - File structure 
ch - variable into which the data is to be stored 


DESCRIPTION 
Read a character of data from a file starting at the current file pointer 
position. The data is stored into the parameter ch. 


EXAMPLES 
The following example reads a string from the inFile and stores the string 
into an array of characters called msg. 


VAR inFile : File; msg : ARRAY [@..255] OF CHAR; ch : CHAR; 


ji: INTEGER; 
BEGIN 
1 t= 83 
REPEAT 
ReadChar(inFile, ch); 
msg[i] := ch; 
INC(i); 


UNTIL (ch = OC); 
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Module FileSystem 


NAME 
WriteChar - write a character to a file 


SYNOPSIS 
WriteChar(VAR f: File; ch: CHAR); 


f - File structure 
ch - character to be written to the file 


DESCRIPTION 
Output a character(8-bits) of data at the current file pointer position. 


In most cases the data is stored into a buffer and later when the buffer is 
full the data is written to disk. 


EXAMPLES 


The following example writes a string to the outFile from an array of 
characters called msg. 


VAR outFile : File; msg : ARRAY [@..255] OF CHAR; ch : CHAR; 
i: INTEGER; 
BEGIN 


ch := msg[i]; 

INC(i); 

WriteChar(inFile, ch); 
UNTIL (ch = OC); 
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Module Heap 


The module Heap is very similar to the standard Storage module. The 
difference between the Heap module and the Storage module is that the Heap 
module keeps track of the memory allocated and freed. Therefore, it is easy to 
free all memory currently allocated by calling the FreeHeap procedure. 


This module allocates memory using the ROM Kernel AllocMem function with 
the memory type MemRegSet{}. This memory type tries to allocate fast memory 
first if available, otherwise chip memory is allocated. 


The disadvantage of this module over the standard Storage module is that it 
has an overhead of 12 bytes per memory block allocated. There is no execution 
speed penalty for using the Heap module over the Storage module. However, in a 
program which allocates a very large number of small memory blocks this module 
would cause a much larger amount of memory to be allocated. 
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NAME 
ALLOCATE - allocate an area of a given size 


SYNOPSIS 
ALLOCATE(VAR a: ADDRESS; size: LONGCARD); 


a - store address of memory allocated or NIL if no memory 
size - number of bytes to allocate 


DESCRIPTION 
Allocate a block of memory of a specified size. The memory is allocated by 
calling the ROM Kernel AllocMem function with a MemReqSet{}. If the memory 
could not be allocated a NIL is returned as the address. 


EXAMPLES 
VAR Table : POINTER TO ARRAY [@..1023] OF BOOLEAN; 


BEGIN 
ALLOCATE(Table, 1824D); 
IF Table = NIL THEN 
WriteString("insufficient memory to continue!"); 
END; 
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Module Heap 
NAME 
DEALLOCATE - return memory allocated by ALLOCATE 


SYNOPSIS 
DEALLOCATE(VAR a: ADDRESS; size: LONGCARD); 


a - address of the memory to be deallocated 
size - number of bytes to free 


DESCRIPTION 
Deallocates memory allocated with ALLOCATE. The memory block being freed 
must be exactly the same as the block returned by ALLOCATE. 


EXAMPLES 
VAR Table : POINTER TO ARRAY [@..1023] OF BOOLEAN; 
BEGIN 
ALLOCATE(Table, 1024D); 
IF Table = NIL THEN 
WriteString("insufficient memory to continue!"); 
END; 


“DEALLOCATE(Table, 10240); 
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NAME 
Available - determine if a specified amount of memory is free 


SYNOPSIS 
Available(size: LONGCARD): BOOLEAN; 


size - number of bytes that needs to be available 
result - TRUE if the specified number of bytes are available 

DESCRIPTION 
Check if a specified number of bytes are available as contiguous memory. If 
the memory has become fragmented then this procedure may return FALSE even 
when the total amount of free memory exceeds the specified size. Modula-2 
programs moved from other system may use this function before using the 
ALLOCATE function. 

EXAMPLES 
VAR Table : ARRAY [@..1999] OF CHAR; 
BEGIN 

“IF Available(2000D) THEN 


ALLOCATE(Table, 20000); 
END; 
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Module Heap 


NAME 
FreeHeap - free all memory blocks currently allocated 


SYNOPSIS 
FreeHeap(); 


DESCRIPTION 
Free all memory blocks currently allocated by the caller using the ALLOCATE 
procedure. This procedure may be useful if a fatal error is encountered and 
it is necessary to free all allocated memory without going through the 
normal cleanup procedure. 


EXAMPLES 


TYPE 
NodePtr = POINTER TO Node; 
Node = RECORD 
Next : NodePtr; 
Prev : NodePtr; 
Name : ARRAY [@..15] OF CHAR; 


END; 
VAR 
Pp, q : NodePtr; 
BEGIN 


“ALLOCATE(p, SIZE(p*)); 
“ALLOCATE(q, SIZE(q7)); 


'FreeHeap(); 
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Module InitMathLibo 


The InitMathLib@ module performs the necessary initialization which is 
required before any of the procedure in the MathLib® module are used. The 
MathLib@ module utilizes the Amiga’s "mathtrans.library", this library is not 
opened automatically since the "“mathtrans.library" is disk based and always 
opening this library would cause an unnecessary overhead on programs. 


This module is especially useful when attempting to port programs written 
on other systems which utilize the module MathLib@. By using the open and close 
Procedures in this module a program from another system can be made to work 
without writing any additional code. 
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NAME 


OpenMathLib@ - open the "mathtrans. library" 


SYNOPSIS 


OpenMathLib@(): BOOLEAN; 


result - TRUE if successfully opened “mathtrans. library" 
FALSE if failed to open 


DESCRIPTION 


This procedure is used to open the Amiga’s "“mathtrans.library". If the 
procedure returns FALSE there are probably two possible reasons the file 
"mathtrans. library" was not found in the "“libs:" directory or there was 
insufficient memory to load the file from disk, in either case the program 
should exit gracefully because calling any of the functions in the module 
MathLib@ would cause a system crash. 


EXAMPLES 
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The following demonstrates how the OpenMathLib@ procedure may be used. 


BEGIN 
IF NOT OpenMathLib@() THEN 
WriteString("FATAL ERROR: ’mathtrans.library’ not opened!"); 
HALT; (* exit *) 
END; 


Module InitMathLibo 


NAME 
CloseMathLib@ - close the “mathtrans. library" 


SYNOPSIS 
CloseMathLib@() ; 


DESCRIPTION 
This procedure should be called before exiting the program which uses the 
module MathLib@. This procedure closes the Amiga’s "mathtrans.library" and 
should therefore only be called if the OpenMathLib@ function was successful. 
If the CloseMathLib@ is not performed the library will not be removed from 
memory until the system is rebooted. 


EXAMPLES 
The following demonstrates how the OpenMathLib® and CloseMathLibd 
procedures may be used. 


BEGIN 
IF NOT OpenMathLibO() THEN 
WriteString("FATAL ERROR: ’mathtrans.1library’ not opened!"); 
HALT; (* exit *) 
END; 


“CloseMathLiba(); 
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Module InOut 


The standard module InOut is available in most implementations of Modula-2. 
The module provides high level I/O operations to an output stream and from an 
input stream. It is important to understand that the procedures in this module 
can only work with one input and one output stream at one time. 


By default the input stream is connected to the terminal StdInput and the 
output stream is connected to the terminal StdOutput. This means that any 
Procedure which performs a write will send data to the users terminal and any 
procedure which performs a read will get its input from the users terminal. To 
force data to be written to a file, the OpenOutput or OpenOutputFile function 
must be used to establish the connection to the file. The same is true for 
input, except the OpenInput or the OpenInputFile function jis used. After all 
input or output operations have been completed on a file, a CloseInput or 
CloseOutput function must be called, this will cause the file to be closed and 
revert the input or output stream back to the terminal. 


This module defines a variable Done which is set to TRUE or FALSE depending 
on if the previous call to a function in the module InOut was successful or 
unsuccessful. The variable termCH is set to the character which terminated 
input by the ReadString, ReadInt and ReadCard functions. The variables in and 
out are used by the InOut module when performing input or output to a file, 
these variables should not be manipulated as that may disrupt the proper 
operation of the module. The variable Echo controls the operation of the 
ReadString procedure, this variable is non-standard. When Echo is set to TRUE 
ReadString will echo any input, when FALSE the input will not be echoed. By 
default the variable is set to TRUE. The value to be used for Echo depends on 
the type of output window through which the i/o is taking place. If the i/o is 
going through a "CON:" window, like the one used by the CLI the Echo variable 
should be set to FALSE. When performing i/o through a "RAW:" window, then the 
Echo variable should be set 
to TRUE. 


The module InOut defines the constant EOL, this represents the ASCII code 
for the end of line character for this implementation of the InOut module. 
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OpenInput - open a user specified input file 


PSIS 
OpenInput(defext: ARRAY OF CHAR); 


defext - extension to append if name ends in "." 


RIPTION 

Prompts the user for the name of a file. The prompt output to the terminal 
is “in>". The user can abort the prompt by entering ESC, which will return 
with the variable Done set to FALSE. If the user enters a name and the name 
ends in a period, then the parameter defext will be appended to the name of 
the file. An attempt will be made to open the file. If the file can not be 
found then the message “ not found" will be output to the terminal. The 
user will then be prompted to enter another name. If the file is 
successfully opened then the function returns with the variable Done set to 
TRUE. 


EXAMPLES 


In the following example the user will be prompted to specify an input file. 
If the user aborts by pressing ESC then the program will be aborted. 


BEGIN 
OpenInput(".txt"); 
IF NOT Done THEN 

HALT; 
END; 
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NAME 
QpenOutput - open a user specified output file 


SYNOPSIS 
OpenOutput(defext: ARRAY OF CHAR); 


defext - extension to append if the name ends with "." 


DESCRIPTION 

Prompts the user for the name of a file. The prompt output to the terminal 
is “out>". The user can abort the prompt by entering ESC, which will return 
with the variable Done set to FALSE. If the user enters a name and the name 
ends in a period, then the parameter defext will be appended to the name of 
the file. An attempt will be made to open the file. If the file can not be 
opened for output then the user will then be prompted to enter another name. 
If the file is successfully opened then the function returns with the 
variable Done set to TRUE. 


EXAMPLES 


In the following example the user will be prompted to specify an output 
file. If the user aborts by pressing ESC then the program will be aborted. 


BEGIN 
OpenOutput(". bak"); 
IF NOT Done THEN 
HALT; 
END; 
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NAME 
OpenInputFile - open a file for input 


SYNOPSIS 
OpenInputFile(filename: ARRAY OF CHAR); 


filename - name of file to open 


DESCRIPTION 
The specified file is opened for input. If the operation is successful then 
the variable Done is set to TRUE. If the open operation failed then the 
variable Done is set to FALSE. 


EXAMPLES 


BEGIN 
OpenInputFile("help.dat"); 
IF NOT Done THEN 
WriteString("Error: input file not opened! "); 
HALT; 
END; 
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NAME 
OpenOutputFile - open a file for output 


SYNOPSIS 
OpenOutputFile(filename: ARRAY OF CHAR); 


filename - name of file to open 


DESCRIPTION 
The specified file is opened for output. If the operation is successful 


then the variable Done is set to TRUE. If the open operation failed then 
the variable Done is set to FALSE. 


EXAMPLES 


BEGIN 
OpenOutputFile("results.dat"); 
IF NOT Done THEN 


WriteString("Error: output file not opened!"); 
HALT; 
END; 
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NAME 
CloseInput - close the input file 


SYNOPSIS 
CloseInput(); 


DESCRIPTION 
Closes the file from which input is currently being received and returns to 
receiving input from the terminal. This procedure is used to close a file 
opened with OpenInput or OpenInputFile. 

EXAMPLES 


BEGIN 
OpenInput(". tmp"); 


“CloseInput(); 
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NAME 
CloseOutput - close the output file 


SYNOPSIS 
CloseOutput() ; 


DESCRIPTION 
Close the file to which the output is currently being sent and begin sending 
output to the terminal. This procedure is used to close a file opened with 
OpenOutput or OpenOutputFile. 

EXAMPLES 


BEGIN 
OpenOutput(". tmp") ; 


cl oseOutput(); 
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NAME 
Read - read a char from the input stream 


SYNOPSIS 
Read(VAR ch: CHAR); 


ch - variable to store the next character in 


DESCRIPTION 
Read the next character from the input stream and store it into the 
parameter ch. Set the variable Done to TRUE if the operation was 
successful. If an end of file condition was detected set Done to FALSE. 


EXAMPLES 
VAR cmdCh : CHAR; 
BEGIN 
“Loop 
Read(cmdCh) ; 
IF NOT Done THEN 
EXIT; 
END; 


END; 
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NAME 
ReadString - read a string from the input stream 


SYNOPSIS 
ReadString(VAR s: ARRAY OF CHAR); 


s - array which is to receive the input string 


DESCRIPTION 
Read a sequence of characters not containing blank or control characters. 
Leading blanks are ignored. Input is terminated by a carriage return or 
blank space. To delete a character the backspace key can be used. The 
character which caused the input to be terminated is stored in termCH. The 
state of the variable Echo determines if this procedure will echo the 
characters typed by the user. 


EXAMPLES 
The following example prompts the user for a command, then reads the command 
from the input stream. 
VAR cmd : ARRAY [@..127] OF CHAR; 
BEGIN 


“WriteString("Enter next Command? "); 
ReadString(cmd) ; 
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NAME 
ReadInt - read an integer and convert to binary 


SYNOPSIS 
ReadInt(VAR x: INTEGER); 


x - integer variable into which to store the binary value 
DESCRIPTION 
Read a string from the input stream. The string should contain an ASCII 
integer. Convert the integer to binary and store into the parameter x. The 
variable Done is set to TRUE if the integer is read or FALSE if the 
operation failed. 
The syntax for an integer is: 
integer = ["+"|"-"] digit {digit}. 
EXAMPLES 
VAR x : INTEGER; 
BEGIN 
“WriteString("Enter the x coordinate? "); 
ReadInt(x); 
IF NOT Done THEN 


WriteString("Invalid x coordinate!"); 
END; 
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NAME 
ReadCard - read a cardinal and convert to binary 


SYNOPSIS 
ReadCard(VAR x: CARDINAL); 


x - cardinal variable into which to store the binary value 
DESCRIPTION 
Read a string from the input stream. The string should contain an ASCII 
cardinal. Convert the cardinal to binary and store into the parameter x. 
The variable Done is set to TRUE if the cardinal is read or FALSE if the 
operation failed. 
The syntax for a cardinal is: 
cardinal = digit {digit}. 
EXAMPLES 
VAR age : CARDINAL; 
BEGIN 
“Writestring("Enter your age? "); 
ReadCard(age) ; 
IF NOT Done THEN 


WriteString("Invalid Age!"); 
END; 
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NAME 
ReadWrd - read a word(16-bits) of data from the input stream 


SYNOPSIS 
ReadWrd(VAR w: WORD); 


w - variable into which to store the word value 


DESCRIPTION 
Read a word(16-bits) of data into the parameter w from the input stream. 
The variable Done is set to TRUE if the operation is successful. If an end 
of file condition is encountered the variable Done is set to FALSE. 


EXAMPLES 


The following example reads from the input stream until an end of file is 
reached. 


VAR val : CARDINAL; 
BEGIN 
‘Loop 
ReadWrd(val); 
IF NOT Done THEN 
EXIT; 


END; 
END; 
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NAME 
Write - write a character to the output stream 


SYNOPSIS 
Write(ch: CHAR); 


ch - the character to be sent to the output stream 


DESCRIPTION 
Output a character to the output stream. 


EXAMPLES 
The following example outputs the string "12" to the output stream. 


BEGIN 


“Write("1"); 
Write("2"); 
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NAME 
WriteLn - terminate the current line of the output stream 


SYNOPSIS 
WriteLn; 


DESCRIPTION 


Terminate the current output line by sending a line feed to the output 
stream. 


EXAMPLES 
The following example will cause "One..." to be sent to the output steam and 
"Two..." to be sent to the next line. 


BEGIN 
“WriteString("one..."); 
WriteLn; 


WriteString("Two..."); 
WriteLn; 
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NAME 
WriteString - output a string to the output stream 


SYNOPSIS 
WriteString(s: ARRAY OF CHAR); 


s - string to be output to the output stream 


DESCRIPTION 


Output a string to the output stream. The characters 
output until a null character is encountered. No 
after the string is output. 


of the string are 
line feed is generated 


EXAMPLES 
BEGIN 


“WriteString("Hello World!"); 
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NAME 
WriteInt, WriteCard, WriteOct, WriteHex - write a number to output stream 
SYNOPSIS 
WriteInt(x,n: INTEGER); write x in decimal to output stream 
WriteCard(x,n: CARDINAL); write x in decimal to output stream 
WriteOct(x,n: CARDINAL); write x in octal to output stream 
WriteHex(x,n: CARDINAL) ; write x in hexadecimal to output stream 


x - integer or cardinal binary number to be output 
n - minimum number of characters to output 


DESCRIPTION 


Output an ASCII representation of an integer or cardinal number. The output 
is in decimal, octal or hexadecimal. The parameter n specifies the minimum 
width of the output string. If the number of digits is less than the 


minimum specified then the field is padded with space characters. 


WriteHex procedure always outputs 4 digits, this is done to make hexadecimal 


numbers easily distinguishable. The output is sent to the output stream. 
EXAMPLES 
BEGIN 
“WriteHex(1024, 4); 


WriteLn; 
WriteCard(129, 5); 
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Module LargeSets 


The LargeSets module implements machine independent large sets. Modula-2 
specifies that the set type must not be larger than the machine word. For this 
implementation the set can have up to 32 elements on smaller computers the set 
may be limited to as few as 16 elements. The LargeSets module can be used to 
create a set with as many as 65536 elements. 


The program refers to a set by its handle. The handle is defined as a 
hidden type called LargeSet. To create the actual set the procedure CreateSet 
is called with the range of the set to be created. Once a set is created any 
number of operations can be performed such as adding elements to the set, 
testing if an element exists in the set and many other useful operations. When 
the program no longer needs the set it should be deleted using DeleteSet. 


Operations between two sets are only possible when the two sets have 
exactly the same range. Further, it is not legal to include, exclude or test 
any element which is outside the range of the set. 


The amount of memory required to represent a large set not including the 
small set management overhead is calculated as follows: 


SetSize = ((lastElement - firstElement) DIV 8) + 1; 
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NAME 
CreateSet - allocate memory for a large set 


SYNOPSIS 
CreateSet(VAR set: LargeSet; first, last: CARDINAL): BOOLEAN; 


set - variable to store handle for LargeSet 
first - first element in range of set 
last - last element in range of set 


result - TRUE if allocated successfully 
FALSE if set allocation failed 


DESCRIPTION 


Allocate memory for storage of a large set with the specified range. The 
set is initially set to empty. If the result returned is FALSE then the set 
was not created because of insufficient memory. 


EXAMPLES 


VAR 
MySet : LargeSet; 
BEGIN 
IF CreateSet(MySet, 8, 999) THEN 
WriteString("CreateSet() Successful!"); 
ELSE 


WriteString("CreateSet() Failed!"); 
END; 
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NAME 
DeleteSet - deallocate a large set 


SYNOPSIS 
DeleteSet(set: LargeSet); 


set - handle of LargeSet to be deleted 


DESCRIPTION 
This procedure releases the dynamic memory occupied by a large set. This 
operation is performed after the set is mo longer needed. This operation 
should only be performed on a set that was successfully allocated. 


EXAMPLES 
VAR 
MySet : LargeSet; 
BEGIN 
IF CreateSet(MySet, 9, 999) THEN 
DeleteSet (MySet); 


END; 
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NAME 
SetInfo - return internal information about a large set 


SYNOPSIS 
SetInfo(set: LargeSet; VAR setAdr: ADDRESS; VAR setSize: CARDINAL); 


set - handle of LargeSet 
setAdr - variable to store address of first byte of LargeSet 
setSize - variable to store size of LargeSet in bytes 


DESCRIPTION 
This procedure returns private information about the storage for a large 
set. This procedure should be used with care, it is mainly provided so that 
the elements of a large set can be read from or written to a file on a disk. 


EXAMPLES 


This example shows a procedure which might be used to write the contents of 
a set to a file. 


PROCEDURE SaveSet(file: FileHandle; set: LargeSet); 
VAR 
sAdr : ADDRESS; 
sSize: CARDINAL; 
err : LONGINT; 
BEGIN 
SetInfo(set, sAdr, sSize); 
err := Write(file, sAdr, sSize); 
END SaveSet; 
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NAME 
SetRange - return the element range of a large set 


SYNOPSIS 
SetRange(set: LargeSet; VAR first, last: CARDINAL); 


set - handle of LargeSet 
first - variable to store first element of set 
last - variable to store last element of set 


DESCRIPTION 
This procedure returns to the caller the first and last element of the set 
range. The range returned is exactly the same as the range specified when 
the set was created using the CreateSet procedure. 


EXAMPLES 


The following example implements a procedure which displays on the screen 
the range of a specified set. 


PROCEDURE DispSetSize(set: LargeSet); 


VAR 
first, last: CARDINAL; 
BEGIN 
SetRange(set, first, last); 
argo[@].W := first; 
argo[1].W last; 





printf("(%u..%u]", argo); 
END DispSetSize; 
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NAME 
In - test if an element is present in a large set 


SYNOPSIS 
In(set: LargeSet; element: CARDINAL): BOOLEAN; 


set - handle of LargeSet 
element - element to test 


result - TRUE if element in set 
FALSE if element not in set 


DESCRIPTION 
This procedure tests if a specified element exists in a large set. The 
specified element must lie in the range of the set for the result returned 
to be considered valid. This procedure corresponds directly to the standard 
7IN’ operator used by Modula-2. 


EXAMPLES 


VAR 
MySet : LargeSet; 
BEGIN 
IF CreateSet(MySet, @, 999) THEN 


IF In(MySet, 5) THEN 

WriteString("Element Found In Set!"); 
ELSE 

WriteString("Element Not Found In Set!"); 
END; 


DeleteSet(MySet); 
END; 
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NAME 
InclElement - include an element in a large set 


SYNOPSIS 
InclElement(set: LargeSet; element: CARDINAL); 


set - handle of LargeSet 
element - element to include 


DESCRIPTION 
Include a specified element in a large set. The specified element must lie 
in the range of the set for the operation to be considered valid. This 
procedure corresponds directly to the standard ‘INCL’ operator used by 
Modula-2. 


EXAMPLES 
VAR 
MySet : LargeSet; 
BEGIN 
IF CreateSet(MySet, 8, 999) THEN 
InclElement(MySet, 100); 


peleteSet (MySet); 
END; 
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NAME 
ExclElement - exclude an element from a large set 


SYNOPSIS 
ExclElement(set: LargeSet; element: CARDINAL); 


set - handle of LargeSet 
element - element to exclude 


DESCRIPTION 
Exclude a specified element from a large set. The specified element must 
lie in the range of the set for the operation to be considered valid. This 
procedure corresponds directly to the standard ’EXCL’ operator used by 
Modula-2. 


EXAMPLES 
VAR 
MySet : LargeSet; 
BEGIN 
IF CreateSet(MySet, 0, 999) THEN 
ExclElement(MySet, 45); 


beleteSet (MySet); 
END; 
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NAME 
InclRange - include a range of elements in a large set 


SYNOPSIS 
InclRange(set: LargeSet; first, last: CARDINAL); 


set - handle to LargeSet 
first - first element of range to be included 
last - last element of range to be included 


DESCRIPTION 
Include a range of elements in a large set. The specified range must be a 
subrange of the large set in order for this operation to be valid. 


EXAMPLES 
VAR 
MySet : LargeSet; 
BEGIN 
IF CreateSet(MySet, 0, 999) THEN 
InclRange(MySet, 10, 100); 


DeleteSet (MySet); 
END; 
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NAME 
ExclRange - exclude a range of elements from a large set 


SYNOPSIS 
ExclRange(set: LargeSet; first, last: CARDINAL); 


set - handle to LargeSet 
first - first element of range to be excluded 
last - last element of range to be excluded 
DESCRIPTION 
Exclude a range of elements from a large set. The specified range must be a 
subrange of the large set in order for this operation to be valid. 


EXAMPLES 
VAR 
MySet : LargeSet; 
BEGIN 
IF CreateSet(MySet, @, 999) THEN 
ExclRange(MySet, 100, 200); 


DeleteSet (MySet); 
END; 
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NAME 
CopySet - copy the elements of a large set 


SYNOPSIS 
CopySet(dstSet, srcSet: LargeSet); 


dstSet - destination for copy operation 
sreSet - source for copy operation 


DESCRIPTION 
Copy the elements from a source set to a destination set. This operation is 


only valid if both the source set and the destination set have exactly the 
same set range. 


EXAMPLES 
VAR 
MySet, YourSet : LargeSet; 
BEGIN 
IF (CreateSet(MySet, @, 999)) AND (CreateSet(YourSet, 0, 999)) THEN 
CopySet(MySet, YourSet); 
DeleteSet(MySet); 


DeleteSet(YourSet) ; 
END; 
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NAME 
Union - perform a union operation on two large sets 


SYNOPSIS 
Union(dstSet, srcSet: LargeSet); 


dstSet - destination for union operation 
sreSet - source for union operation 


DESCRIPTION 


Perform a set union operation. The result of the union of the two sets is 
stored back into the dstSet. Both sets must have exactly the same set 


range. This procedure corresponds directly to the standard Modula-2 ’+’ set 
operator. 


EXAMPLES 
VAR 


MySet, YourSet : LargeSet; 
BEGIN 


IF (CreateSet(MySet, 0, 999)) AND (CreateSet(YourSet, 0, 999)) THEN 
Union(MySet, YourSet) ; 
DeleteSet(MySet); 


DeleteSet(YourSet) ; 
END; 
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NAME 
Diff - perform a difference operation on two large sets 


SYNOPSIS 
Diff(dstSet, srcSet: LargeSet) ; 


dstSet - destination for difference operation 
sreSet - source for difference operation 


DESCRIPTION 
Perform a set difference operation. The result of the difference of the two 
sets is stored back into the dstSet. Both sets must have exactly the same 
set range. This procedure corresponds directly to the standard Modula-2 ’-’ 
set operator. 


EXAMPLES 
VAR 


MySet, YourSet : LargeSet; 
BEGIN 


IF (CreateSet(MySet, @, 999)) AND (CreateSet(YourSet, 0, 999)) THEN 
Diff(MySet, YourSet) ; 
DeleteSet(MySet) ; 


DeleteSet(YourSet) ; 
END; 
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NAME 
Intersection - perform an intersection operation on two large sets 


SYNOPSIS 
Intersection(dstSet, srcSet: LargeSet); 


dstSet - destination for intersection operation 
srcSet - source for intersection operation 


DESCRIPTION 
Perform a set intersection operation. The result of the intersection of the 
two sets is stored back into the dstSet. Both sets must have exactly the 
same set range. This procedure corresponds directly to the standard 
Modula-2 ’*’ set operator. 


EXAMPLES 
VAR 


MySet, YourSet : LargeSet; 
BEGIN 


IF (CreateSet(MySet, 8, 999)) AND (CreateSet(YourSet, 8, 999)) THEN 
Intersection(MySet, YourSet) ; 
DeleteSet (MySet); 


DeleteSet(YourSet) ; 
END; 
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NAME 
SymmetricDiff - perform a symmetric difference operation on two large sets 


SYNOPSIS 
SymmetricDiff(dstSet, srcSet: LargeSet); 


dstSet - destination for symmetric difference operation 
sreSet - source for symmetric difference operation 


DESCRIPTION 
Perform a set symmetric difference operation. The result of the symmetric 
difference of the two sets is stored back into the dstSet. Both sets must 
have exactly the same set range. This procedure corresponds directly to the 
standard Modula-2 ’/’ set operator. 


EXAMPLES 
VAR 
MySet, YourSet : LargeSet; 
BEGIN 
IF (CreateSet(MySet, 8, 999)) AND (CreateSet(YourSet, 8, 999)) THEN 
symmetricDiff(MySet, YourSet); 
DeleteSet(MySet); 


DeleteSet(YourSet) ; 
END; 
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Module LongInOut 


The module LongInOut contains some logical extensions of the standard 
module InOut. The module consists of procedure for reading and writing values 
of type LONGINT and LONGCARD which are 32-bit versions of the standard 16-bit 
types INTEGER and CARDINAL. This module performs 1/0 operations by using the 
procedures in module InOut implicitly. 


This module defines a variable Done which is set to TRUE or FALSE depending 
on if the previous call to a function in the module LongInOut was successful or 
unsuccessful. 


For additional information about how the I/0 in performed refer to the 
documentation for the module InOut which describes this in more detail. 
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NAME 
ReadLongInt - read a long integer and convert to binary 


SYNOPSIS 
ReadLongInt(VAR x: LONGINT); 


x - long integer variable into which to store the binary value 


DESCRIPTION 
Read a string from the input stream. The string should contain an ASCII 
long integer. Convert the long integer to binary and store into the 
parameter x. The variable Done is set to TRUE if the long integer is read 
or FALSE if the operation failed. 


The syntax for a long integer is: 
longint = ["+"|"-"] digit {digit}. 
EXAMPLES 
VAR 
x : LONGINT; 
BEGIN 
“WriteString("Enter the x coordinate? "); 
ReadLongint(x) ; 
IF NOT Done THEN 


WriteString("Invalid x coordinate!"); 
END; 
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NAME 
ReadLongCard - read a long cardinal and convert to binary 


SYNOPSIS 
ReadLongCard(VAR x: LONGCARD) ; 


x - long cardinal] variable into which to store the binary value 


DESCRIPTION 
Read a string from the input stream. The string should contain an ASCII 
long cardinal. Convert the long cardinal to binary and store into the 
parameter x. The variable Done is set to TRUE if the long cardinal is read 
or FALSE if the operation failed. 


The syntax for a long cardinal is: 
longeard = digit {digit}. 
EXAMPLES 
VAR 
age : LONGCARD; 
BEGIN 
“Writestring("Enter your age? "); 
ReadLongCard(age) ; 
IF NOT Done THEN 


WriteString("Invalid Age!"); 
END; 


Zi-5 


Modula-2 Software Construction Set Reference Guide 


NAME 
WriteLongint, WriteLongCard, WriteLongOct, WriteLongHex - output a number 


SYNOPSIS 
WriteLongInt(x: LONGINT; n: CARDINAL); output x in decimal 
WriteLongCard(x: LONGCARD; n: CARDINAL); output x in decimal 
WriteLongOct(x: LONGCARD; n: CARDINAL); output x in octal 
WriteLongHex(x: LONGCARD; n: CARDINAL); output x in hexadecimal 


x - long integer or long cardinal binary number to be output 
n - minimum number of characters to output 


DESCRIPTION 


Output an ASCII representation of a long integer or long cardinal number. 
The output is in decimal, octal, or hexadecimal. The parameter n specifies 
the minimum width of the output string. If the number of digits is less 
than the minimum specified then the field is padded with space characters. 
The WriteLongHex procedure always outputs 8 digits, this is done to make 
hexadecimal numbers easily distinguishable. The output is sent to the 


output stream. 
EXAMPLES 
VAR 
x: LONGCARD; 
BEGIN 
“Wri teLongHex(x, 10); 


WriteLn; 
WriteLongCard(x, 5); 
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Module MathLibo 


The MathLib@ module is a superset of the standard module available in most 
implementations. The module contains all of the standard procedures along with 
additional procedures and mathematical constants. 


The procedures in this module take advantage of the Amiga 
“mathtrans.library". Therefore before any procedures in this module can be 
called the "mathtrans. library" must be opened successfully and the library base 
must be stored into the variable MathTransBase. Before exiting the Amiga 
resident library "mathtrans.library" must be explicitly closed. The easiest way 
to accomplish the above steps is to use the procedures in the module 
InitMathLib@ described in another chapter of this manual. The following example 
demonstrates how to use MathLibo: 


MODULE Demo; 


FROM InitMathLib@ IMPORT OpenMathLib@, CloseMathLibO; 
FROM MathLib@ IMPORT sin; 
FROM Terminal IMPORT WriteString; 


VAR 
x, y: REAL; 
BEGIN 
IF OpenMathLibO() THEN 





X t= sin(y); 
CloseMathLibo(); 
ELSE 
WriteString("ERROR: ’mathtrans. library’ not found!"); 
END; 
END Demo. 


Instead of using the InitMathLib® module the following code may also be 
used to open and close the "mathtrans. library". 


BEGIN 


MathTransBase t= OpenLibrary(ADR(MathTransName), OD); 
IF (MathTransBase # NIL) THEN 


CloseLibrary(MathTransBase”); 
ELSE 

WriteString("ERROR: ’mathtrans. library’ not found!"); 
END; 


22-3 


Modula-2 Software Construction Set Reference Guide 


NAME 

arccos, arcsin, arctan, cos, sin, tan - trigonometric functions 
SYNOPSIS 

arccos(x: REAL): REAL; return arccosine of x 

arcsin(x: REAL): REAL; return arcsine of x 

arctan(x: REAL): REAL; return arctangent of x 

cos(x: REAL): REAL; return cosine of x 

sin(x: REAL): REAL; return sine of x 

tan(x: REAL): REAL; return tangent x 


x - angle in radians 
result - value of trigonometric function 


DESCRIPTION 
These functions return the value of the corresponding trigonometric function 


for a given angle. The input value to these functions is not an angle in 
degrees but rather in radians. 


EXAMPLES 
VAR 
v, x, y: REAL; 
BEGIN 
IF OpenMathLibo() THEN 
x ts sin(v); 
y := tan(v); 
CloseMathLibo(); 


END; 


22-4 


Module MathLibo 


NAME 
cosh, sinh, tanh - hyperbolic functions 

SYNOPSIS 
cosh(x: REAL): REAL; return hyperbolic cosine of x 
sinh(x: REAL): REAL; return hyperbolic sine of x 
tanh(x: REAL): REAL; return hyperbolic tangent of x 


x - angle in radians 
result - value of hyperbolic function 


DESCRIPTION 
These functions return the value of the corresponding hyperbolic function 


for a given angle. The input value to these functions is not an angle in 
degrees but rather in radians. 





EXAMPLES 
VAR 
v, X, y: REAL; 
BEGIN 
IF OpenMathLib@() THEN 
x te sinh(v); 
y tanh(v); 
CloseMathLibO(); 


END; 


22-5 


Modula-2 Software Construction Set Reference Guide 


NAME 
exp, In, log, power, sqrt - logarithmic and exponential functions 
SYNOPSIS 
exp(x: REAL): REAL; return exponential function of x 
In(x: REAL): REAL; return natural log of x 
Jog(x: REAL): REAL; return naparian logarithm of x 
power(x, y: REAL): REAL; return x to power of y 
sqrt(x: REAL): REAL; return square root of x 


x - a real value 
y - a real value 


result - value of logarithmic or exponential function 


DESCRIPTION 


These functions return the value of the corresponding 


exponential function for given value(s). 
EXAMPLES 


VAR 
v, X, y: REAL; 
BEGIN 
IF OpenMathLib@() THEN 


x sqrt(v); 
y exp(v); 


CloseMathLib0(); 
END; 
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NAME 
real, entier - type conversion functions 

SYNOPSIS 
real(x: LONGINT): REAL; convert a LONGINT to a REAL 
entier(x: REAL): LONGINT; convert a REAL to a LONGINT 


x - value to be converted 
result - value converted to a different type 


DESCRIPTION 
These functions convert a value between the types REAL and LONGINT. 
Conversion from REAL to LONGINT is performed by returning the integral part 
of the floating point number. The result of the entier function is 
unspecified when the REAL value is outside the range of LONGINT. 


EXAMPLES 


VAR 
x: REAL; 
1: LONGINT; 
BEGIN 
IF OpenMathLib@() THEN 


x 
i 


real(1); 
entier(x); 


CloseMathl ibo(); 
END; 
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NAME 
DegToRad, RadToDeg - radians and degrees conversion functions 
SYNOPSIS 
DegToRad(x: REAL): REAL; convert degrees to radians 
RadToDeg(x: REAL): REAL; convert radians to degrees 


x - value to be converted 


result - value converted to the specified form 


DESCRIPTION 
These function convert a value from degrees to radians or from radians to 
degrees. 
EXAMPLES 
VAR 
Vv, X, y: REAL; 
BEGIN 
IF OpenMathLibO() THEN 
Sie DegToRad(v); 
y t= RadToDeg(v); 
CloseMathL ib0(); 


END; 
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Module RandomNumbers 


The RandomNumbers module implements a pseudo-random number generator. The 
pseudo-random number generator uses the linear congruential method to generate 
the random numbers. This method produces very good results. 


The seed of the RandomNumbers module is automatically set to an arbitrary 
seed value. The seed can be changed at any time by storing a new value into the 
variable Seed. For a given seed value the same sequence of random numbers will 
be generated. To be sure of receiving a different random number sequence every 
time a program is run, load the seed value from the current system time value. 
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NAME 
Random - returns a random number within a specified range 


SYNOPSIS 
Random(max: LONGCARD): LONGCARD; 


max - specifies the upper bounds of random number range 
result - a random number in the specified range 


DESCRIPTION 
Return a pseudo-random number between @ and max-1. The algorithm for 
generating the random number is based on the linear congruential method. 


EXAMPLES 


The following example stores a random number between @ and 999 into the 
variable x. 


VAR 

x : LONGCARD; 
BEGIN 

xX t= Random(1@0D) ; 


23-4 





Chapter 24 Module RealConversions 
ConvStringToReal. pAduade F 2 iis 
GOMVRE AlMO SER MG vai vys « avelo)evoveroralalcieleletelsyeuete creel stolsrerelel eve! eletgln) f= 






24-1 


Modula-2 Software Construction Set Reference Guide 


24-2 


Module RealConversions 


The RealConversions module provides functions for converting REAL to ASCII 
and ASCII to REAL. The functions in this module operate on strings and are not 
bound to any specific I/0 device. 


The REAL to ASCII conversion function defines a new type for specifying the 
output format: 


TYPE 
RealToStringFormat = (Scientific, Decimal, ShortestForm); 


The Scientific form produces the following output: 
[-]m.nE[+| -]xx 


The Decimal form produces the following output: 
[-]m.n 


The ShortestForm uses either the Scientific or the Decimal form depending on 
which one can be represented in fewer characters. 
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NAME 
ConvStringToReal - ASCII to floating point conversion 


SYNOPSIS 
ConvStringToReal(s: ARRAY OF CHAR): REAL; 


s - string containing the ASCII floating point number 
result - floating point number in binary form 


DESCRIPTION 
Convert ASCII floating point number to a binary floating point number. 
Leading blanks are ignored. The floating point string may contain a decimal 
point and may be followed by an “e" or "E" and a signed integer exponent. 


EXAMPLES 


The following example prompts the user for a string and then converts the 
string to a floating point value. 


VAR input : ARRAY [@..99] OF CHAR; v : REAL; 
BEGIN 
WriteString("Size ? "); 


ReadString( input) ; 
v t= ConvStringToReal (input) ; 
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NAME 
ConvRealToString - floating point to ASCII conversion 


SYNOPSIS 
ConvRealToString(x: REAL; 
VAR s: ARRAY OF CHAR; 
digits: CARDINAL; 
format: RealToStringFormat) ; 


x - floating point number to be converted 

s - string which is to receive the output 

digits - number of digits to be output past the decimal point 
format - the desired output format 


DESCRIPTION 


Convert a binary floating point number to an ASCII string. The string which 
is used for output must be large enough to accommodate the result. The 
output is performed according to the selected format. The parameter digits 
determines how many digits of precision to generate. 


EXAMPLES 


The following example demonstrates how a REAL number can be output to the 
terminal. 


VAR outStr : ARRAY [@..79] OF CHAR; val : REAL; 
BEGIN 


“ConvRealToString(val, outStr, 7, Decimal); 
WriteString(outStr) ; 
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Module RealInOut 


The standard module RealInOut is available in most implementations. This 
module provides procedures for input and output of real numbers. The actual 
input and output is performed through the module InOut. For more information 
refer to the chapter on the module InOut. 


This module defines a variable Done which is set to TRUE or FALSE depending 
on if the previous call to a function in the module RealInOut was successful or 
unsuccessful. 
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NAME 
ReadReal - read a real and convert to binary representation 


SYNOPSIS 
ReadReal(VAR x: REAL); 


x - variable into which the REAL number is to be stored 


DESCRIPTION 


Inputs a string representing a floating point number. The input is taken 
from the input stream established in the module InOut. A string to real 
conversion is performed and the result stored into the parameter x. 


EXAMPLES 
VAR 
y : REAL; 
BEGIN 


“ReadReal (y)3 
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Module RealInOut 


The standard module RealiInOut is available in most implementations. This 
module provides procedures for input and output of real numbers. The actual 
input and output is performed through the module InOut. For more information 
refer to the chapter on the module InOut. 


This module defines a variable Done which is set to TRUE or FALSE depending 


on if the previous call to a function in the module RealInOut was successful or 
unsuccessful. 
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NAME 
WriteReal - output a real number 


SYNOPSIS 
WriteReal(x: REAL; n: CARDINAL); 


x - REAL number to be output 
n - minimum number of characters to output 


DESCRIPTION 
Converts a REAL number to a string. Send the string to the output stream, 
established in the module InOut. The output string will contain a specified 
minimum number of characters. The string will be padded with spaces if not 
enough digits are generated. 


EXAMPLES 


VAR 
x: REAL; 
BEGIN 


WriteReal(x, alyyR 
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Module RunTimeErrors 


The purpose of this module is to provide support for run time error 
checking. Run time error checking is enabled by taking over a tasks tcTrapCode 
and tcTrapData fields of the Task structure. When a program encounters a trap 
or exception such as CHK or TRAPV a window jis opened on the WorkBench screen, 
the window contains a register dump and other process related information. The 
user is given three options: 


"C" - continue execution from this point 
"E" - exit program immediately 
"p" - propagate the error to the next trap handler 


For more information on run-time errors refer to the compiler chapter of 
this manual. 
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NAME 
InstallErrorHandler - install error handler 


SYNOPSIS 
InstallErrorHandler(); 


DESCRIPTION 
Install an error handler on the current process. The error handler must be 
removed via a call to RemoveErrorHandler before exiting the program. 


EXAMPLES 


(*$V+ enable overflow checking *) 
VAR x, y : INTEGER; 


BEGIN 
InstallErrorHandler(); 
t= 30000; 
= 30000; 
X t= X + y; (* <- Run-Time Error: Overflow *) 
RemoveErrorHandler(); 
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NAME 


RemoveErrorHandler - remove error handler 


SYNOPSIS 


RemoveErrorHandler(); 


DESCRIPTION 


Remove the error handler from the current process. 
performed before terminating a program. If the 
installed no action is taken. 


EXAMPLES 


(*$V+ enable overflow checking *) 
VAR x, y : INTEGER; 


BEGIN 
InstallErrorHandler(); 
X t= 30000; 
30000; 
t= X + y; (* <- Run-Time Error: Overflow *) 
RemoveErrorHandler(); 








Module RunTimeErrors 


This operation must be 
error handler was not 
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Module Storage 


The standard Modula-2 module Storage has been implemented to allow programs 
from other environments to be moved to the Amiga. Most implementations of 
Modula-2 implement the module Storage. 


This module allocates memory using the ROM Kernel AllocMem function with 
the memory type MemReqSet{}. This memory type tries to allocate fast memory 
first if available, otherwise chip memory is allocated. 


Some programs written on other systems allocate memory dynamically but do 
not deallocate the memory. These programs assume that the operating system will 
deallocate all the memory automatically when the program exits. This is not the 
case with the Amiga operating system, to allow such programs to work properly on 
the Amiga the Heap module should be used. The Heap module keeps track of all 
memory allocations and allows all of the memory currently allocated to be 
released with one procedure call. For more information refer to the chapter of 
this manual which describes the Heap module. 
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NAME 
ALLOCATE - allocate an area of a given size 


SYNOPSIS 
ALLOCATE(VAR a: ADDRESS; size: LONGCARD); 


a - store address of memory allocated or NIL if no memory 
size - number of bytes to allocate 


DESCRIPTION 


Allocate a block of memory of a specified size. The memory is allocated by 
calling the ROM Kernel AllocMem function with a MemReqSet{}. If the memory 
could not be allocated a NIL is returned as the address. 


EXAMPLES 


VAR Table : POINTER TO ARRAY [@..1623] OF BOOLEAN; 


BEGIN 
ALLOCATE(Table, 1024D); 
IF Table = NIL THEN 


WriteString("insufficient memory to continue!"); 
END; 
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Module Storage 
NAME 
DEALLOCATE - return memory allocated by ALLOCATE 


SYNOPSIS 
DEALLOCATE(VAR a: ADDRESS; size: LONGCARD); 


a - address of the memory to be deallocated 
size - number of bytes to free 


DESCRIPTION 
Deallocates memory allocated with ALLOCATE. The memory block being freed 
must be exactly the same as the block returned by ALLOCATE. 
EXAMPLES 
VAR Table : POINTER TO ARRAY [@..1023] OF BOOLEAN; 
BEGIN 
ALLOCATE(Table, 1024D); 
IF Table = NIL THEN 
WriteString("insufficient memory to continue!"); 
END; 


“DEALLOCATE(Table, 10240); 
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NAME 
Available - determine if a specified amount of memory is free 


SYNOPSIS 
Available(size: LONGCARD): BOOLEAN; 


size - number of bytes that needs to be available 
result - TRUE if the specified number of bytes are available 


DESCRIPTION 
Check if a specified number of bytes are available as contiguous memory. If 
the memory has become fragmented then this procedure may return FALSE even 
when the total amount of free memory exceeds the specified size. Modula-2 
programs moved from other system may use this function before using the 
ALLOCATE function. 


EXAMPLES 
VAR Table : ARRAY [0..1999] OF CHAR; 
BEGIN 
“IF Available(2000D) THEN 


ALLOCATE(Table, 2Q00D); 
END; 
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Module Strings 


The Strings module provides many functions for manipulating strings. A 
string is defined as a group of characters followed by a null character. Some 
of the procedures in the Strings module do not check if a string has become 
larger than the amount of memory actually allocated for the string. Therefore 
it becomes very important to reserve enough space so that a string will never 
become to large and overflow its buffer. 


The Strings module has several procedures used in comparing one string to 
another. These procedures return a result which indicates if the strings are 
equal, less, or greater. The result is defined as follows: 


TYPE 
Relation = (less, equal, greater); 


The strings are considered equal if they are of the same length and the 
characters representing the strings are identical. If the strings are not 
identical then one string will be considered Jess or greater than the other 


string. The following example will illustrate the possible result of a string 
compare function: 


"abc" = "abc" 


"ABC" < "abo" 
"abo" > "ABC" 
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NAME 
StringLength - determine the length of a string 


SYNOPSIS 
StringLength(string: ARRAY OF CHAR): CARDINAL; 


string - string to be measured 
result - length of string 


DESCRIPTION 
Count the number of characters in a string. This is done by starting from 
the first character of the string and continuing until a null character is 
reached. A string which consists of only the null character has a length of 


zero. 

EXAMPLES 
VAR s : ARRAY [@..127] OF CHAR; len : CARDINAL; 
BEGIN 


ReadString(s); 
len := StringLength(s) ; 
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NAME 
ConvStringToUpperCase - convert a string to upper case 


SYNOPSIS 
ConvStringToUpperCase(VAR string: ARRAY OF CHAR); 


string - string to be converted to upper case 


DESCRIPTION 


This procedures performs a Modula-2 CAP() standard function on each 
character in the string, until a null character is encountered. 


EXAMPLES 
An example of using ConvStringToUpperCase is when a program requests the 
user to type the name of a command. The user might use upper or lower case 
characters to input the command. Your program can then convert the input 
string to all upper case, then to determine which command the user has 
entered it is only necessary to compare the input string to the upper case 
strings representing valid commands. 


VAR in : ARRAY [@..79] OF CHAR; 
BEGIN 
ReadString(in); 
ConvStr ingToUpperCase(in); 
IF CompareString(in, "LIST") = equal THEN 
ELSIF CompareString(in, "RUN") = equal THEN 


END; 
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NAME 
CompareString - compare two strings (case sensitive) 


SYNOPSIS 
CompareString(stringl, string2: ARRAY OF CHAR): Relation; 


stringl - the string on the left side of the compare 
string2 - the string on the right side of the compare 


result - result of comparing the strings is a Relation 


DESCRIPTION 
Compare two strings character by character. The strings are equal if they 


are of exactly the same length and the characters in the strings are 
identical. 


EXAMPLES 
VAR cmd : ARRAY [@..79] OF CHAR; 


BEGIN 
ReadString(cmd) ; 
IF CompareString(cmd, "EXIT") = equal THEN 
WriteString("Done..."); 
HALT; 
END; 
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NAME 
CompareStringCAP - compare two strings (case insensitive) 


SYNOPSIS 
CompareStringCAP(stringl, string2: ARRAY OF CHAR): Relation; 


stringl - the string on the left side of the compare 
string2 - the string on the right side of the compare 


result - result of comparing the strings is a Relation 


DESCRIPTION 
Compare two strings to each other regardless of case. The two strings are 
equal if they are of the same length and if the characters in the strings 
are identical, regardless of lower or upper case. 


EXAMPLES 


In the following example the CompareStringCAP procedure wil] return equal 
because the strings only differ in the case of the letters. 


VAR flag : BOOLEAN; 
BEGIN 


“Flag t= CompareStringCAP("Abce","AbC") = equal; 
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NAME 
CopyString - copy a string from one buffer to another buffer 


SYNOPSIS 
CopyString(VAR toString: ARRAY OF CHAR; fromString: ARRAY OF CHAR); 


toString - the destination string for the copy 
fromString - the source string for the copy 


DESCRIPTION 
Copy the characters from the fromString to the toString. The fromString is 
truncated if it is larger than the toString. 
EXAMPLES 
VAR name, input : ARRAY [@..79] OF CHAR; 
BEGIN 


‘CopyString(name » input); 
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NAME 
ConcatString - append a string to the end of another string 


SYNOPSIS 
ConcatString(VAR toString: ARRAY OF CHAR; fromString: ARRAY OF CHAR); 


toString - string to which the fromString is to be appended to 
fromString - string which is to be appended to the toString 


DESCRIPTION 
The characters of the fromString are copied to the toString beginning after 
the last character of the toString. If the toString is not large enough to 
accommodate the new string the toString will be truncated. 

EXAMPLES 
VAR fileName : ARRAY [@..59] OF CHAR; 
BEGIN 


‘ Concatstri ng(fileName, ".DOC"); 
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NAME 
InsertSubString - insert one string into another string 


SYNOPSIS 
InsertSubString(VAR baseString: ARRAY OF CHAR; 
subString: ARRAY OF CHAR; start: CARDINAL); 


baseString - string into which to insert 
subString - string to be inserted 
start - the baseString char after which to begin insert 


DESCRIPTION 


Insert a subString into a baseString at a specified position. The 
characters after the start position are shifted over to make room for the 
subString. If the baseString is not large enough to accommodate the new 
subString those characters which do not fit into the baseString are 


truncated. If start is greater than StringLength(baseString) then the 
result is undefined. 


EXAMPLES 


In this example if the string inputFileName contained "test.mod" after the 
InsertSubString procedure call the inputFileName contains "RAM:test.mod". 


VAR inputFileName : ARRAY [@..79] OF CHAR; 
BEGIN 


“InsertSubString(inputFileName, "RAM: ",0); 
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NAME 


OverwriteWithSubString - overwrite a string with another string 


SYNOPSIS 


OverwriteWithSubString(VAR baseString: ARRAY OF CHAR; 
subString: ARRAY OF CHAR; 
start: CARDINAL); 


baseString - string to be partially overwritten 
subString - string to overwrite with 
start - character at which to begin overwritting baseString 


DESCRIPTION 


The baseString is overwritten by the subString beginning with the character 
at position start. The length of the baseString may increase after being 
overwritten. The subString will be truncated if it goes beyond the bounds of 
the array containing the baseString. 


EXAMPLES 


The fileName variable contains "dfO:test.doc" after the 
OverwriteWithSubString is performed the fileName variable contains 
"df3:test.doc". 


VAR fileName : ARRAY [@..79] OF CHAR; 
BEGIN 


“OverwriteWithSubString(fileName, "df3:", 2); 
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NAME 
DeleteSubString - delete characters from a string 


SYNOPSIS 
DeleteSubString(VAR baseString: ARRAY OF CHAR; 
fromPosition: CARDINAL; length: CARDINAL) 


baseString - string from which to delete chars 
fromPosition - character position from which to begin delete 
length - number of chars to delete 


DESCRIPTION 


Delete a specified number of characters from the middle of a string. 


Those 


characters which come after the deleted characters are shifted down to fill 


the space previously occupied by the deleted characters. 


EXAMPLES 


The variable patStr contains “abcdef" after the DeleteSubString procedure is 


applied, the patStr becomes “abf". 
VAR patStr : ARRAY [@..39] OF CHAR; 
BEGIN 


DeleteSubString(patstr, 2573) 
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NAME 
ExtractSubString - extract characters from a string 


SYNOPSIS 
ExtractSubString(VAR subString: ARRAY OF CHAR; 
baseString: ARRAY OF CHAR; 
fromPosition: CARDINAL; 
length: CARDINAL); 


subString - store extracted characters into this string 
baseString - string from which to extract the substring 
fromPosition - begin extracting from a specified position 
length - number of characters to extract 


DESCRIPTION 
This procedure copies a specified number of characters from a baseString to 
a subString starting at a specified position. If a null character is 
encountered in the baseString before the specified number of characters are 
extracted then the subString is terminated at that point. 


EXAMPLES 
If cmdStr contains "LOAD:test.dat" then executing an ExtractSubString 
Procedure will result in an extracted substring of "test.dat". 
VAR extStr, cmdStr : ARRAY [@..39] OF CHAR; 
BEGIN 


“ExtractSubString(emdStr, subStr, 5, 8); 
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NAME 
LocateSubString - search for a substring 


SYNOPSIS 
LocateSubString(baseString, subString: ARRAY OF CHAR; 
start, end: CARDINAL): INTEGER; 


baseString - string to be used for the search 
subString - substring to search for 

start - starting position for search 

end - ending position for search 


result - position of subString in baseString or -1 if not found 


DESCRIPTION 
Search for the occurrence of a subString inside a baseString. The search 
begins at the start position and ends at the specified end position. The 
result of the search is either the position of the first occurrence of the 
subString in the baseString or -1 if the subString was not found in the 
baseString. If the subString is smaller than the baseString the result is 

=1, 

EXAMPLES 


VAR input : ARRAY [@..79] OF CHAR; flag : BOOLEAN; 
BEGIN 


“Flag t= LocateSubString(input, "**", 0, 79) # -1; 
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NAME 
LocateChar - search for a character in a string 


SYNOPSIS 
LocateChar(string: ARRAY OF CHAR; c: CHAR; 
start, end: CARDINAL): INTEGER; 


string - string to be searched for character 
c - character to search for 

start - starting position of search in string 
end - ending position of search in string 


result - position of char, or -1 if char not found in string 


DESCRIPTION 


Module Strings 


Search a string from a specified start to a specified end position for the 
first occurrence of a character. If the character is found in the string 
then the position is returned, otherwise -1 is returned to indicate that the 


character was not found. 


EXAMPLES 


VAR input : ARRAY [@..79] OF CHAR; flag : BOOLEAN; 
BEGIN 


“Flag t= LocateChar(input, ".", 8, 79) # -1; 
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Module System 


The purpose of the System module is to provide basic run-time support 
functions. These functions include 32-bit arithmetic functions, floating point 
functions, and the startup code necessary to run under the AmigaDOS operating 
system. 


The first code executed in a Modula-2 program is the startup code which 
resides in the System module. The startup begins by storing the contents of 
registers DO and AG into the variables CmdLineLength and CmdLinePtr. The two 
registers are initialize by AmigaDOS to contain the length of the CLI command 
line and the pointer to the CLI command line string, these two variables will 
not be valid if the program was invoked from the WorkBench environment. To 
allow a program to determine how much stack space it has been given the 
variables StackPtr and StackSize are initialized with the top of stack pointer 
and the size of the stack respectively. Next, the startup code opens the 
following Amiga libraries: “exec.library", "“dos.library", “mathffp.library", 
"intuition. library" and “graphics.library", “layers.library". The next step is 
for the startup code to determine the environment in which the program is being 
executed, the two possible environments are CLI and WorkBench. 


First, we will cover what happens when a program is started from the CLI 
environment. The startup code will parse the command line arguments. An 
argument is considered to be one or more characters separated by a blank space 
character, the exception to this rule are characters enclosed in double quotes 
which are considered as one argument. Each argument is copied into a buffer and 
followed by a null character, a pointer to the argument is stored into the argv 
array beginning at index 1. Index @ of the argv array contains a pointer to the 
name of the program. The double quotes which may enclose an argument are not 
striped away and are considered part of the argument string. After the 
arguments are parsed the variable arge is set to the number of arguments found 
on the command line, including the program name itself. Therefore a program 
invoked from the CLI environment will have an arge of greater or equal to one. 
The final action of the CLI startup code is to initialize the variables StdInput 
and StdOutput by storing the values returned by the AmigaDOS functions Input and 
Output respectively, these functions return the programs standard input and 
standard output file handles. The user of a program may redirect the standard 
input and output to another device or file by using the ">" and "<" symbols 
followed by the name of a file or device. For more information about 
redirection refer to the AmigaDOS manual. 


If the program has been invoked by WorkBench then an entirely different set 
of functions must be performed. After invoking the process, WorkBench sends a 
startup message to our process. This message is sent to our processes’ message 
port. The startup code performs a WaitPort function on the message port and 
then a GetMsg function to retrieve the message. A pointer to the message is 
stored into the variable WBenchMsg. An AmigaDOS window is then opened and the 
variables StdInput and StdOutput are assigned the file handle returned by 
AmigaDOS for that window. The window is opened to allow a program which 
performs output to work properly. 


To determine if your program has been invoked from the CLI or from 


WorkBench test the variable arge. If arge is equal to zero then you are running 
under WorkBench, otherwise arge contains the number of arguments from the CLI. 
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After the startup initialization has been finished the pointer to the 
System module’s base data address is loaded into the register A4 and JSR is 
performed to the module initialization JSR table. At the end of this table is a 
JMP to the main program module. 


When a program has finished executing or a HALT has been encountered 
execution returns to the System module. The System module is responsible for 
final cleanup before exiting to the operating system. The cleanup consists of 
closing the Amiga libraries initially opened by the startup code. If the 
program was started from WorkBench then the output window opened by the startup 
code is closed and the message initially sent by WorkBench is replied. 
Finally,the contents of variable CLIReturnCode is loaded into register D@ and 
the program exits to AmigaDOS. 


The procedures defined in module System are used only for run-time support 
and should not be called directly by a program. These procedures are only 
documented in the definition module and need no further explanations. Do not 
call any of the procedures in this module directly. 
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Module Terminal 


The standard module Terminal is available on most implementations of 
Modula-2. This module provides simple input and output procedures for reading 
and writing text. 


The input and output is done through the StdInput and StdOutput file 
handles defined in the module System. By using the AmigaDOS redirection symbols 
">" and "<" the user can redirect either the input or output to a file or 
another device. 


The variable eof defined by the this module can be checked to determine if 
the end of a file has been reached. This flag may be set after a Read 
operation. This flag is set to TRUE if the user has redirected the input to an 
AmigaDOS file and all the characters from the file have been read. It should 
also be mentioned that by checking this flag your program will probably not be 
directly portable to other systems, because this flag may not be implemented on 
other systems. 


The Read and BusyRead functions will behave differently depending on if the 
program is performing input from a "RAW:" or "CON:" window. In a "RAW:" window 
characters will not be echoed to the screen and will be available immediately 
after being typed. In a “CON:" window characters will be echoed to the screen 
and will not be available until the user types <RETURN>. 
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NAME 
Read - read a character from the terminal 


SYNOPSIS 
Read(VAR ch: CHAR); 


ch - variable which is to receive the next character 
DESCRIPTION 
Request a character from the terminal. The program will wait until the user 
presses a key. 
EXAMPLES 
VAR ch : CHAR: 
BEGIN 


“Read(ch); 
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BusyRead - read character from terminal if ready 


SYNOPSIS 


BusyRead(VAR ch: CHAR); 


ch - variable into which the character will be stored 


DESCRIPTION 


If a character is available return it immediately, if no character is 
available then return the value zero. This procedure should only be used 
when the StdInput is connected to an interactive terminal. The procedure 
will not work when StdInput is a file or a non interactive device. 


EXAMPLES 


The following example will continue to output the character "." until the 
user types a key at the terminal. 


VAR cmd : CHAR; 


BEGIN 
“Loop 
BusyRead(cmd) ; 
IF cmd # OC THEN EXIT; END; 
MniiteGens)): 


END; 
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NAME 
ReadAgain - cause the last character Read to be Read again 


SYNOPSIS 
ReadAgain; 


DESCRIPTION 
This procedure pushes back the last character returned by Read or BusyRead 
back onto the input stream. The next call to Read or BusyRead will return 
the same character again. 


EXAMPLES 
In this example after the user types a character, the program will display 
the same character twice. 


VAR cmd : CHAR; 

BEGIN 
“Read(cmd); 
Write(cmd) ; 
ReadAgain; 


Read(cmd) ; 
Write(cmd) ; 
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NAME 
Write - output a character to the terminal 


SYNOPSIS 
Write(ch: CHAR); 


ch - character to be output to the terminal 


DESCRIPTION 
Output a character to the terminal. The specified character is sent 
directly to AmigaDOS without any translations. 


EXAMPLES 


BEGIN 
Write("1"); 
Write("2"); 
write("3"); 
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NAME 
WriteLn - terminate the current line of output 


SYNOPSIS 
WriteLn; 


DESCRIPTION 


Terminate the current output line. On the Amiga this is done by sending a 
line feed to the terminal. 


EXAMPLES 
The following example will cause "One..." to be printed on the terminal, and 
"Two..." to be printed on the next line of terminal. 
BEGIN 
WriteString("One..."); 
WriteLn; 
WriteString("Two..."); 


WriteLn; 
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NAME 
WriteString - write a string to the terminal 


SYNOPSIS 
WriteString(s: ARRAY OF CHAR); 


s - string to be output to terminal 

DESCRIPTION 
Output the characters of a string to the terminal until a null character is 
encountered. The null character is not output. No line feed is generated 
after the string is printed. 


EXAMPLES 
The following example will output "Hello World!" to the terminal. 


BEGIN 
WriteString("Hello World!"); 
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Module TermInOut 


This module is very similar to the standard InOut module. The main 
difference is that it only support i/o to the terminal. The main advantage of 
this module is that it is a fraction of the size of the full InOut module, and 
it does not import any other modules. This module only ads 1.5K of code to your 
program a big savings over using InOut which also pulls in FileSystem, Terminal, 
Memory, AmigaDOS. 


The input stream is connected to the terminal StdInput and the output 
stream is connected to the terminal StdOutput. This means that any procedure 
which performs a write will send data to the users terminal and any procedure 
which performs a read will get its input from the users terminal. 


This module defines a variable Done which is set to TRUE or FALSE depending 
on if the previous call to a function in the module TermInOut was successful or 
unsuccessful. The variable termCH is set to the character which terminated 
input by the ReadString, ReadInt and ReadCard functions. The variable Echo 
controls the operation of the ReadString procedure. When Echo is set to TRUE 
ReadString will echo any input, when FALSE the input will not be echoed. By 
default the variable is set to TRUE. The value to be used for Echo depends on 
the type of output window through which the i/o is taking place. If the i/o is 
going through a "CON:" window, like the one used by the CLI the Echo variable 
should be set to FALSE. When performing i/o through a "RAW:" window, then the 
Echo variable should be set to TRUE. 


The module TermInOut defines the constant EOL, this represents the code for 
the end of line character for this implementation of the module TermInOut. 
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NAME 
Read - read a char from the input stream 


SYNOPSIS 
Read(VAR ch: CHAR); 


ch - variable to store the next character in 


DESCRIPTION 


Read the next character from the input stream and store it into the 
parameter ch. Set the variable Done to TRUE if the operation was 
successful. If an end of file condition was detected set Done to FALSE. 


EXAMPLES 
VAR cmdCh : CHAR; 
BEGIN 
“LOOP 
Read(cmdCh) ; 
IF NOT Done THEN 
EXIT; 
END; 


END; 
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NAME 
ReadString - read a string from the input stream 


SYNOPSIS 
ReadString(VAR s: ARRAY OF CHAR); 


s - array which is to receive the input string 


DESCRIPTION 


Read a sequence of characters not containing blank or control characters. 
Leading blanks are ignored. Input is terminated by a carriage return or 
blank space. To delete a character the backspace key can be used. The 
character which caused the input to be terminated is stored in termCH. 


EXAMPLES 
The following example prompts the user for a command, then reads the command 
from the input stream. 
VAR cmd : ARRAY [@..127] OF CHAR; 
BEGIN 


“WriteString("Enter next Command? "); 
ReadString(cmd) ; 
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NAME 
ReadInt - read an integer and convert to binary 


SYNOPSIS 
ReadInt(VAR x: INTEGER); 


x - integer variable into which to store the binary value 


DESCRIPTION 
Read a string from the input stream. The string should contain an ASCII 
integer. Convert the integer to binary and store into the parameter x. The 
variable Done is set to TRUE if the integer is read or FALSE if the 
operation failed. 


The syntax for an integer is: 

integer = ["+"|"-"] digit {digit}. 
EXAMPLES 

VAR x : INTEGER; 

BEGIN 

“writeString("Enter the x coordinate? "); 
ReadInt(x) ; 
IF NOT Done THEN 


WriteString("Invalid x coordinate!"); 
END; 
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NAME 
ReadCard - read a cardinal and convert to binary 


SYNOPSIS 
ReadCard(VAR x: CARDINAL); 


x - cardinal variable into which to store the binary value 


DESCRIPTION 
Read a string from the input stream. The string should contain an ASCII 


cardinal. Convert the cardinal to binary and store into the parameter x. 
The variable Done is set to TRUE if the cardinal is read or FALSE if the 
operation failed. 
The syntax for a cardinal is: 
cardinal = digit {digit}. 
EXAMPLES 
VAR age : CARDINAL; 
BEGIN 
“WriteString("Enter your age? "); 
ReadCard(age); 
IF NOT Done THEN 


WriteString("Invalid Age!"); 
END; 
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NAME 
Write - write a character to the output stream 


SYNOPSIS 
Write(ch: CHAR); 


ch - the character to be sent to the output stream 


DESCRIPTION 
Output a character to the output stream. 


EXAMPLES 
The following example outputs the string "12" to the output stream. 


BEGIN 


“Write("1"); 
Write("2"); 
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NAME 
WriteLn - terminate the current line of the output stream 


SYNOPSIS 
WriteLn; 


DESCRIPTION 


Terminate the current output line by sending a line feed to the output 
stream. 


EXAMPLES 


The following example will cause “One..." to be sent to the output steam and 
"Two..." to be sent to the next line. 


BEGIN 
“WriteString("One. . ais 
WriteLn; 
WriteString("Two..."); 


WriteLn; 


31-9 


Modula-2 Software Construction Set Reference Guide 
NAME 
WriteString - output a string to the output stream 


SYNOPSIS 
WriteString(s: ARRAY OF CHAR); 


s - string to be output to the output stream 

DESCRIPTION 
Output a string to the output stream. The characters of the string are 
output until a null character is encountered. No line feed is generated 
after the string is output. 

EXAMPLES 
BEGIN 


“WriteString("Hello World! "); 
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NAME 
WriteInt, WriteCard, WriteOct, WriteHex - write a number to output stream 
SYNOPSIS 
WriteInt(x,n: INTEGER); write x in decimal to output stream 
WriteCard(x,n: CARDINAL); write x in decimal to output stream 
WriteOct(x,n: CARDINAL); write x in octal to output stream 
WriteHex(x,n: CARDINAL) ; write x in hexadecimal to output stream 


x - integer or cardinal binary number to be output 
n - minimum number of characters to output 


DESCRIPTION 
Output an ASCII representation of an integer or cardinal number. The output 
is in decimal, octal or hexadecimal. The parameter n specifies the minimum 
width of the output string. If the number of digits is less than the 
minimum specified then the field is padded with space characters. The 
WriteHex procedure always outputs 4 digits, this is done to make hexadecimal 
numbers easily distinguishable. The output is sent to the output stream. 


EXAMPLES 


VAR 
x: CARDINAL; 
BEGIN 


“WriteHex(x, 4); 


WriteLn; 
WriteCard(x, 5); 
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Definition Modules 


This chapter contains the listings for the definition modules of the 
libraries. If a definition module has been changed after the printing of this 
manual, the latest definition module will be on one of the disks. 
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Module ADKHardware 


(ORCI I RII RRR RET AAS 


te Modula-2 Software Construction Set * 
ig (c) 1986 by Leon Frenkel * 
porererreerrecrererrcecete: stesteenttacsetcoeceseclttetio loo ici ro ooo orcas 
* Name: ADKHardware .OEF Version: Amiga.00.00 3 
* Created: 11/29/86 Updated: 11/29/86 Author: Leon Frenkel * 
* Description: Amiga ADK control definitions. = 


JOSIE ORIG TICE IID ODES IIIIOEIO DEI TTT T OTITIS II TIT I RII), 


DEFINITION MODULE ADKHardware; 





CONST 
ADKSetCIr = 15; (* standard set/clear bit *) 
AOKPreCompl = 14; (* two bits of precompensation *) 
ADKPreCompO = 13; 
ADKMFMPrec = 12; (* use mfm style precompensation *) 
ADKUARTBrk = 11; (* force uart output to zero *) 
ADKWordSync = 10; (* enable OSKSYNC register matching *) 
ADKMSBSync = 9; (* (Apple GCR Only) sync on MSB for reading *) 
ADKFast = 8; (* 1 -> 2 us/bit (mfm), 2 -> 4 us/bit (ger) *) 
ADKUse3PN = 7; (* use aud chan 3 to modulate period of ?? *) 
AOKUse2P3 = 6; (* use aud chan 2 to modulate period of 3 *) 
ADKUse1P2 = 5; (* use aud chan 1 to modulate period of 2 *) 
ADKUseOP1 = 4; (* use aud chan O to modulate period of 1 *) 
ADKUse3VN = 3; (* use aud chan 3 to modulate volume of 7? *) 
ADKUse2V3 = use aud chan 2 to modulate volume of 3 *) 
ADKUselV2 = use aud chan 1 to modulate volume of 2 *) 
AOKUseOV1 = use aud chan 0 to modulate volume of 1 *) 
ADKPreOOONS = {}; (* 000 ns of precomp *) 
ADKPre140NS = (ADKPreComp0); (* 140 ns of precomp *) 
ADKPre280NS = (ADKPreComp1); (* 280 ns of precomp *) 
ADKPre560NS = 


{ADKPreComp0, ADKPreCompl}; (* 560 ns of precomp *) 


END AOKHardware. 


32-4 


Module Alerts 


(URI IO IOI IIIT ORI TI SIRI ISI TI TITRA IRIS II AI ATAA TED 





* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
TRUER IODC HOTT ICC ODETTE TEETER A RRR RI REINER ERE 
* Name: Alerts.DEF Version: Amiga.00.00 iad 
* Created: 11/17/86 Updated: 11/17/86 Author: Leon Frenkel . 
* Description: Exec Alerts Types/Functions. * 


SRN RRIR ARI RIRR RE RRIR IERIE RERE REE ERRE AERA TE IE RIRE ER ESTEE RT ATER EEE ST LEAT) 


DEFINITION MODULE Alerts; 


(* Format of the alert error numbe 





is 
|D| SubSysId | General Error | SubSystem Specific Error 
teteec renee foceceec eee eec ee fo cec ence ee cece eee ee renee + 





Ane 





+ 
| 


* 
* 0: DeadEnd alert 

* SubSysId: indicates ROM subsystem number 

* General Error: roughly indicates what the error was 
* Specific Error: indicates more detail 


) 


CONST 
* 


(* General Oead-End Alerts *) 
(te *) 
(* alert types *) 


ATDeadEnd = 80000000H; 
ATRecovery = 00000000! 





(* general purpose alert codes *) 


AGNoMemary = 00010000H; 
AGMakeLib = 00020000H; 
AGOpenLib = 00030000H; 
AGOpenDev = 00040000H; 
AGOpenRes = O0050000H; 
AGIOError = Q0060000H; 
AGNoS1gnal = 00070000H; 


(* alert objects *) 
AGExecLib 00008001H ; 
AQGraphicsLib 
AQLayersLib 
AOIntuition 
AOMathLib 
AOCListLib 
AODOSLib 
AORAMLib 
AOIconLib 
AOExpansionLib 
AQAudi oDev 
AdConsoleDev 
AQGamePortOev 
AOKeyboardDev 
AOTrackDiskDev 
AOTimerDev 
AOCIARsre 
AQDiskRsre 
AQM{scRsre 
AQBootStrap 
AQWorkbench 
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(* Specific Dead-End Alerts *) 
Gg =) 


(* exec. ibrary *) 
ANExecLib = 81000000H ; 
ANExcptVect 





= 81000001H; (* 68000 exception vector checksum *) 
ANBaseChkSum = (* execbase checksum *) 

ANLibChkSum = (* library checksum failure *) 

ANL{ bMem . (* no memory to make library *) 
ANMemCorrupt = (* corrupted memory list *) 
ANIntrMem == (* no memory for interrupt servers *) 
ANInitaPtr = (* InitStruct() of an APTR source *) 
ANSemCorrupt = (* a semaphore is in illegal state *) 
ANFreeTwice = 81000009H; (* freeing memory already freed *) 
ANBogusExcpt = 8100000AH; (* illegal 68k exception taken *) 


(* graphics. library *) 
ANGraphicsLib = 02000000H; 





ANGPxNoMem = 82010000H; (* graphics out of memory *) 
ANLongFrame = 82010006H; (* long frame, no memory *) 
ANShortFrame = 82010007H; (* short frame, no memory *) 
ANTextTmpRas = 82010009H; (* text, no memory for TmpRas *) 
ANBItBitMap = 8201000AH; (* B1tBitMap, no memory *) 
ANRegionMemory = 82010008H; (* regions, memory no available *) 
ANMakeVPort = 82010030H; (* MakeVPort, no memory *) 


ANGPxNOLCM 82011234H; (* emergency memory not available *) 


(* layers. library *) 
ANLayersLib = 03000000H; 
ANLayersNoMem = 83010000H; (* layers out of memory *) 


(* intuition. library *) 
ANIntuition = 04000000H ; 





ANGadgetType = 84000001H; (* unknown gadget type *) 

ANBadGadget © = O4000001H; (* recovery form of ANGadgetType *) 
ANCreatePort = 84010002H; (* create port, no memory *) 

ANItemAlloc = 04010003H; (* item plane alloc, no memory *) 
ANSubA110c = 04010004H; (* sub alloc, no memory *) 

ANPlaneAlloc = 84010005H; (* plane alloc, no memory *) 
ANItemBoxTop = 84000006H; (* item box top < RelZero *) 
ANOpenScreen = 84010007H; (* open screen, no memory *) 
ANOpenScrnRast = 84010008H; (* open screen, raster alloc, no memory *) 
ANSysScrnType = 84000009H; (* open sys screen, unknown type *) 
ANAddSWGadget = 8401000AH; (* add SW gadgets, no memory *) 
ANOpenWindow = 8401000BH; (* open window, no memory *) 

ANBadState = 8400000CH; (* bad state return entering Intuition *) 
ANBadMessage = 8400000DH; (* bad message received by IDCMP *) 
ANWeirdEcho = 8400000EH; (* weird echo causing incomprehension *) 


ANNoConsole 8400000FH; (* couldn’t open the Console Device *) 





th. library *) 
ANMathLib = 05000000H; 


(* clist.1brary *) 
ANCListLib = 06000000H ; 


(* dos. library *) 


ANDOSLib = 07000000H; 

ANStartMem = 07010001H; (* no memory at startup *) 
ANEndTask = 07000002H; (* EndTask didn’t *) 
ANQPKtFail = 07000003H; (* Qpkt failure *) 

ANAsyncPkt = 07000004H; (* Unexpected packet received *) 
ANFreeVec = O7000005H; (* Freevec failed *) 

ANDI skBIkSeq = 07000006H; (* Disk block sequence error *) 
ANBitMap = 07000007H; (* Bitmap corrupt *) 

ANKeyFree = 07000008H; (* Key already free *) 
ANBadChkSum = 07000009H; (* Invalid checksum *) 
ANDiskErrar = O700000AH; (* Disk Error *) 

ANKeyRange = O700000BH; (* Key out of range *) 


ANBadOverlay = O700000CH; (* Bad overlay *) 


(* ramlib. library *) 
ANRAMLib = 08000000H; 
ANBadSegList = 08000001H; (* no overlays in library seglists *) 
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(* icon. library *) 
ANIconLib = 09000000H; 


(* expansion. library *) 
ANExpansionLib = OAOOQOOOH; 
ANBadExpansionFree = OAQOOOO1H; 


(* audio.device *) 
ANAudiaDev = 10000000H ; 


(* console.device *) 
ANConsoleDev = 11000000H; 


(* gameport.device *) 
ANGamePortOev = 12000000H; 


(* keyboard. device *) 
ANKeyboardDey = 13000000H; 


(* trackdisk.device *) 

ANTrackDiskDev = 14000000H; 

ANTDCalibSeek = 14000001H; (* calibrate: seek error *) 
ANTODe lay = 14000002H; (* delay: erro on timer wait *) 





(* timer.device *) 

ANTimerDev = 15000000H; 

ANTMBadReq = 15000001H; (* bad request *) 

ANTMBadSupply = 15000002H; (* power supply does no supply ticks *) 


(* cfa.resource *) 
ANCIARSrc = 20000000H; 


(* disk.resource *) 

ANDiskRsrc == 21000000H; 

ANDRHasDisk = 21000001H; (* get unit: already has disk *) 
ANORIntNoAct = 21000002H; (* interrupt: no active unit *) 


(* misc.resource *) 
ANMiscRsre = 22000000H; 


(* bootstrap *) 
ANBootStrap = 30000000H; 
ANBootError = 30000001H; (* boot code returned an error *) 


(* Workbench *) 
ANWorkbench = 31000000H; 


(* DiskCopy *) 
ANDiskCopy = 32000000H; 
PROCEDURE Alert(alertNum : LONGCARD; parameters : LONGCARD); 


(* Alert the user of an error. 


alertNum - a number indicating the particular alert 
parameters - additional parameters *) 


END Alerts. 
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(ORR THR I CRIES RETR ASEE 





* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
epenperprrnrrerrrecenrre: sc rrecerrcaroon:verusec rrr rrr ertrettetrererresesd 
* Name: Ami gaDOS.DEF Version: Amiga.00.00 * 
* Created: 11/18/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: AmigaDOS types/functions. * 


TERI IIIT SETI ICI CI OI ITI ITI RII SIT AI IIIT AI III III IIIA III III 


DEFINITION MODULE AmigaDOS; 


FROM SYSTEM IMPORT ADDRESS; 
FROM System IMPORT DOSBase; (* Used by IMPLEMENTATION MODULE *) 


CONST 
OOSName = “dos.library"; 


(* Mode parameter to Open() *) 

MadeReadWrite = 1004D; (* Open old file with exclusive lock *) 

ModeOldFile = 10050; (* Open existing file r/w pos at start of file *) 
ModeNewFile = 10060; (* Open freshly created file (delete old file) r/w *) 


(* Relative position to Seek() *) 

OffsetBeginning = -10; (* relative to begining of file *) 
OffsetCurrent = OD; (* relative to current file position *) 
offsetEnd = 10; (* relative to end of file *) 








(* Passed as type to Lock() *) 
Sharedlock = (* File 1s readable by others *) 
AccessRead == (* Synonym *) 

ExclusiveLock = (* No other access allowed *) 
AccessWwrite = (* Synonym 





TYPE 
(* Al] BCPL data must be long word aligned. BCPL pointers are the long word 
* address (1.e. byte address divided by 4 (>>2) *) 
BPTR = ADDRESS; (* long word pointer *) 


(* BCPL strings have a length in the first byte and the the characters. 
* for example: s[O]=3 s[1]=S s[2]=Y s[3]=S *) 
BSTR = ADDRESS; (* long word pointer to BCPL string *) 


FileHandle = BPTI 


(* BCPL ptr to a file handle structure *) 
FileLock = BPTI 


(* BCPL ptr to a file lock structure *) 





CONST 
TicksPerSecond = 500; (* Number of ticks in one second *) 


TYPE 

(* DateStamp *) 

DateStampPtr = POINTER TO DateStampRecord; 

OateStampRecord = RECORD 
dsDays : LONGINT; (* Number of days since Jan. 1, 1978 *) 
dsMinute : LONGINT; (* Number of minutes past midningth *) 
dsTick : LONGINT; (* Numbre of ticks past minute *) 

END; 


CONST 
(* Definition of protection bits *) 
FibArchive = 4; (* cleared whenever file is changed *) 


FibRead = 3; (* ignored by system *) 
FibWrite = ignored by system *) 
Fibexecute = ignored by system *) 
Fibdelete = prevent file from being deleted *) 
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TYPE 
ProtectionSet = SET OF [0..31]; 
(* Returned by Examine() and ExInfo(), must be on a 4 byte boundary *) 
FileInfoBlockPtr = POINTER TO FileInfoBlock; 
FileInfoBlock = RECORO 





FibDiskKey : LONGINT; 
fibDirentryType : LONGINT; (* <O = File, 0 = Directory *) 
fibFileName ARRAY [0..107] OF CHAR; (* file name *) 
fibPratection =: ProtectionSet; (* file protection 3..0 rwxd *) 
fibentryType LONGINT; 
Pibsize LONGINT; (* Number of bytes in file *) 
fibNuaBlocks LONGINT; (* Number of blocks in file *) 
fibdate DateStampRecord; (* Date file last changed *) 
fibComment ARRAY [0..115] OF CHAR; (* Comment str *) 

END; 


(* returned by Info(), must be on a 4 byte boundary *) 
InfoDataPtr = POINTER TO InfoData; 
InfoData = RECORD 








idNumSoftErrors : LONGINT; 
{dUni tNumber LONGINT; 
idDiskState LONGINT; 
idNumBlocks LONGINT; 
idNumBlocksUsed : LONGINT; 
idBytesPerBlock : LONGINT; 
idDiskType : LONGINT; 
idVolumeNode : BPTR; 

idInUse : LONGINT; 

END; 


CONST 
(* Possible values of idDiskState *) 
IOWriteProtected = & (* Disk 1s write protected *) 
IDValidating = 810; (* Disk is currently being validated *) 
TOValidated = 82D; (* Disk is consistent and writeable *) 









(* Possible values of idDiskType *) 
IDNOD{skPresent = -10; 

TOUnreadableDisk = 42414400H; (* "BAD? *) 
IDDosDisk = 444F5300H; (* ’D0S’ *) 
IDNotReallyDos = 4E444F53H; (* ’NDOS’ *) 
IDKickStartDisk = 4849434BH; (* KICK’ *) 


(* Errors from IoErr(), etc. *) 





ErrorNoFreeStore = 1030; 
ErrorTaskTableFul) = 1050; 
ErrarLineTaoLong = 1200; 
ErrorFileNotObject = 1210; 
ErrorInvalidResidentLibrary = 1220; 
ErrorNoDefault0ir = 2010; 
ErrorObjectInUse = 2020; 
Errordbjectexists = 2030; 
ErrorDirNotFound = 2040; 
ErrordbjectNotFound = 2050; 
ErrorBadStreamNane = 2060; 
ErrordbjectTooLarge = 2070; 
ErrarActtonNotknown = 2090; 
ErrorInval{dComponentName = 2100; 
ErrorInvalidLock = 2110; 
ErrordbjectWrongType = 2120; 
ErrorDiskNotValidated = 2130; 
ErrarDiskWriteProtected = 2140; 
ErrarRenameAcrossDevices = 2150; 
ErrorDirectoryNotempty = 2160; 
ErrorTooManyLevels = 2170; 
ErrorDeviceNatNounted = 2180; 
ErrorSeekError = 2190; 
ErrorCommentTooBit = 2200; 
ErrorOiskFull = 2210; 
ErrorDeleteProtected = 2220; 
ErrorWriteProtected = 2230; 
ErrorReadProtected = 2240; 
ErrorNotADosDisk = 2250; 
ErrarNoDisk = 2260; 
ErrorNoMareEntries = 2320; 
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Module AmigaDOs - 


(7 These are the return codes used by convention by AnigaD0S commands *) 
(* See FAILAT and IF for relvance to EXECUTE files 

Returnk = OD; (* no problems, success *) 

ReturnWarn = 5D; (* a warning only *) 

ReturnError = 10D; (* somethin wrong *) 

ReturnFail = 20D; (* complete or severe failure *) 


(* Bit numbers that signal you that a user has issued a break *) 
SigBreakCtriC = 12; 
SigBreakCtriD = 13; 
SigBreakCtriE = 1 
SigBreakCtriF = 15; 





(* NOTE: AmigaDOS when returning a boolean result returns: *) 
(* -1 (TRUE ar SUCCESS), O (FALSE or FAILURE). * 
(* To be compatible with a Modula-2 Boolean value it is automatically *) 
(* converted to 1 (TRUE or SUCCESS), O (FALSE or FAILUER) *) 


(OP INO On I Raine RR RRR) 


(* File Handling Functions *) 


(Onn HOO Or RI RRR I RAR) 


PROCEDURE Close(file: FileHandle); 
(* Close an open file. 


file - file handle *) 
PROCEQURE CreateDir(name: ADDRESS): FileLock; 
(* Create a new director. 
name - null terminated string 
result - BCPL pointer to a lock *) 
PROCEDURE CurrentDir(lock: FileLock): FileLock; 
(* Make a directory assicated with a lock the current working directory. 
Jock - BCPL pointer to a lock 
result - BCPL pointer to a lack *) 
PROCEDURE DeleteFile(name: ADDRESS): BOOLEAN; 
(* Delete a file or director. 
name - a null terminated string 
result - success(TRUE) or failure(FALSE) *) 
PROCEDURE OupLock(lock: FileLock): FileLock; 
(* Duplicate a lock. 
Jock - BCPL pointer to a lock 
result - BCPL pointer to a lock *) 
PROCEQURE Examine(lock: FileLock; VAR infoBlock: FileInfoBlock): BOOLEAN; 
(* Examine a directory or file associated with a lock. 


lock - BCPL pointer to a lock 
infoBlack - pointer to a file info block to be filled in 


result - success(TRUE) or fatlure(FALSE) *) 
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Module AmigaDOS 


PROCEDURE ExNext(lock: FileLock; VAR infoBlock: FileInfoBlock): BOOLEAN; 
(* Examine the next entry in a directory. 


lock - BCPL pointer to a lock 
infoBlock - pointer to a file info block to be filled in 


result - success(TRUE) or failure(FALSE) *) 
PROCEDURE Info(lock: FileLock; VAR infoData: InfoData): ‘BOOLEAN; 
(* Return information about a disk. 


lock - BCPL pointer to a lock 
infoData - pointer to a InfoData structure to be filled in 


result - success(TRUE) or failure(FALSE) *) 

PROCEDURE Input(): FileHandle; 

(* Return the initial input file handle assigned to the program. 
result - file handle *) 

PROCEDURE IoErr(): LONGINT; 

(* Return extra information from the system after an error. 
result - error code or other error info *) 

PROCEDURE IsInteractive(file: FileHandle): BOOLEAN; 

(* Test if a file is connected to a virtual termian! or not. 


file - file handle 


result - TRUE = interactive, FALSE = non-interactive *) 


PROCEDURE Lock(name: ADDRESS; accessMade: LONGINT): FileLock; 
(* Lock a directory or file. 





name - a null terminated string 
accessMode - SharedLock or ExclusiveLock 


result - BCPL pointer to a lock *) 
PROCEDURE Open(name: ADDRESS; accessMode: LONGINT): FileHandle; 
(* Open a file for input or output. 


name - a null terminated string 
accessMode - ModeOldFile or ModeNewFile 


result - file handle *) 

PROCEDURE Output(): FileHandle; 

(* Return the initial output file handle assigned to the program. 
result - file handle *) 

PROCEDURE ParentDir(lock: FileLock): FileLock; 

(* Obtain the parent of a director or file. 
Jock - BCPL pointer to a lack 


result - BCPL pointer to a lock *) 
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PROCEOURE Read(file: FileHandle; buffer: ADDRESS; length: LONGINT): LONGINT; 
(* Read n bytes of data from a file. 


file - file handle 

buffer - pointer to a buffer 

length - nunber of bytes to read 

result - actual number of bytes read or -1 if an error occured *) 
PROCEDURE Rename(oldName, newName: ADDRESS): BOOLEAN; 


(* Rename a directory or file. 


oldName - null terminated string 
newName - null terminated string 


result - success(TRUE) or failure(FALSE) *) 
PROCEDURE Seek(file: FileHandle; position: LONGINT; mode: LONGINT): LONGINT; 
(* Move to a logical file position. 
file - file handle 
position - an offset to move file position ptr to, positive or negative 
mode - OffsetBegining or OffsetCurrent or Offsetend 
result - old file position, or -1 if an error occured *) 
PROCEDURE SetComment (name, comment: ADDRESS): BOOLEAN; 


(* Set a comment on file or directory. 


name - null terminated string 
comment - null terminated string of up to 80 characters in length 


result - success(TRUE) or failure(FALSE) *) 
PROCEDURE SetProtection(name: ADDRESS; mask: ProtectionSet): BOOLEAN; 
(* Set file or directory protection. 


name - null terminated string 
mask - protection make to be set 





result - success(TRUE) or failure(FALSE) *) 
PROCEDURE UnLock(lock: FileLock); 
(* Unlock a directory or file. 
lock - BCPL pointer to a lock *) 
PROCEDURE WaitForChar(file: FileHandle; timeout: LONGINT): BOOLEAN; 
(* Indicates whether characters arrive within a time limit or not. 


file - file handle 
timeout - amount of time to wait in micro seconds 


result - if character arrived before timeout returns TRUE, else FALSE *) 
PROCEDURE Write(file: FileHandle; buffer: ADDRESS; length: LONGINT): LONGINT; 
(* Write n bytes of data to a file. 

file - file handle 

buffer - pointer to a buffer 

length - number of bytes to write 


result - actual number of bytes written, or -1 if an error occured *) 
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(G Loader Functions *) 
(ARERR eR RRA RRR RR ERAN EE) 


PROCEOURE Execute(cmdString: ADDRESS; input, output: FileHandle): BOOLEAN; 
(* Execute a CLI command. 


emdString - null terminated string 
input - file handle 
output - file handle 
result - success(TRUE) or failure(FALSE) *) 
PROCEDURE LoadSeg(name: ADDRESS): BPTR; 
(* Load a load module into memory. 
name - nul] terminated string 
result - pointer to a segment or O if the load failed *) 
PROCEDURE UnLoadSeg(segment: BPTR); 
(* Unload a segment previously loaded by LoadSeg. 


segment - pointer to a segment originally returned by LoadSeg *) 


(HORI Renan Rin Rt ARR) 


* Misc Functions *) 


(OSORIO ii Raa) 


PROCEDURE DateStamp(VAR v: DateStampRecord); 
(* Obtain the current date and time in internal format. 


V - pointer to a DateStamp structure (3 Long Words *) 


END AmigaDos. 


Module AmigaDOS 
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Module AmigaDOSExt 


(fear Aen Banas nien ts HaanOEEA SEES ASe gts REgE nu ASHE TNaRSeHaNSOnAN TES ARES 


Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
pereerrrrererierrerectirrrsrerteorrs score sereseererrerrtretectetceet terior 
* Name: AmigaDOSExt .DEF Version: Amiga.00.00 « 
* Created: 12/03/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: AmigaDOS types which are not needed by casual DOS users. * 


JUDG SO I IOI CTT DTI TIT I OT TTI RAR REIT AIRE RA EAS EIST E) 
DEFINITION MODULE AmigaDOSExt; 


FROM SYSTEM IMPORT ADDRESS; 

FROM AmigaDOS IMPORT BPTR, BSTR, DateStampRecord; 
FROM Libraries IMPORT Library; 

FROM Ports IMPORT MessagePtr, MsgPort, MsgPortPtr; 


TYPE 
(* The BPTR of this structure is returned by Open() and other routines 
* that return a file. You need only worry about this structure to do 
* async 10’s via PutMsg() instead of standard file system calls 
* 
FileHandlePtr = POINTER TO FileHandleRecord; 
FileHandleRecord = RECORD 
fhLink : MessagePtr; (* Exec Message *) 
fhPort : MsgPortPtr; (* Reply port for the packet *) 
fhType : MsgPortPtr; (* Port to do PutMsg() to *) 
fhBuf —: BPTR; (* Adr is negative if a plain file *) 
fhPos —: LONGINT; 
fhEnd : LONGINT; 
fhFuncs : ADDRESS; 
fhFunc2 : ADDRESS; 
fhFunc3 : ADDRESS; 
fhargs : LONGINT; 
fharg2 : LONGINT; 
ENO; 






(* a lock structure, as returned by Lock() or DupLock() *) 

FileLockPtr = POINTER TO FileLockRecord; 

FileLockRecord = RECORD 
fiLink : BPTR; (* bep] pointer to next lack *) 
fikey + LONGINT; (* disk block number *) 
flAccess : LONGINT; (* exclusive or shared *) 
flTask : MsgPortPtr; (* handler task’s port *) 
flVolume : BPTR; (* bep] pointer to a DeviceList *) 

END; 


RootNadePtr = POINTER TO RootNade; 
RootNode = RECORD 
rnTaskArray 2 BPTR; (* [0] 4s max number of CLI’s 
* [1] 4s APTR to processid of CLI 1 
* [n] is APTR to processid of CLI n *) 








rnConsoleSegaent BPTR; (* SegList for the CLI *) 
raTime : DateStampRecord; (* Current time *) 
rnRestartSeg BPTR; (* SegList for the disk validator process *) 
rainfa BPTR; (* ptr to the Info structure *) 
rnFileHandlerSegment : BPTR; (* Seglist for a file handler*) 

END; 


(* 00S library node structure. 
* This is the data at positive offsets from the library node. Negative 
* offsets from the node is the jump table to DOS functions. 
DosLibraryPtr = POINTER TO DosLibrary; 
DosLibrary = RECORD 

dilib =: Library; 

diRoot : RootNodePtr; 





icy : ADDRESS; (* pointer ot BCPL global vector *) 
dTA2 : ADDRESS; (* private register dump of DOS *) 
IAS : ADDRESS; 


G1A6 : ADDRESS 
ENO; 
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DosInfoPtr = POINTER TO DosInfo; 
DosInfo = RECORD 


diMcName : BPTR; © (* Network name of this machine; currently 0 *) 
diDevInfo : BPTR;  (* Divce List *) 

diDevices : BPTR;  (* Currently zero *) 

diHandlers : BPTR;  (* Currently zero *) 





diNetHand : ADDRESS; (* Network handler processid; currently 0 *) 
END; 


(* DOS Processes started from the CLI via RUN or NEWCLI have this additional 
* set of data associated with them *) 

CommandLineInterfacePtr = POINTER TO CommandLineInterface; 
CommandLineInterface = 


RECORD 
cliResult2 : LONGINT; (* Value of IoErr from last command *) 
cliSetName : BSTR;  (* Name of current directory *) 
cliCommandDir ©: BPTR; —(* Lock associated with command dir *) 
cliReturnCode ©: LONGINT; (* Return code from last command *) 
cliCommandName ©: BSTR; —(* Name of current command *) 
cliFailLevel : LONGINT; (* Fail level (set by FAILAT) *) 
c14Prompt : BSTR; (* Current prompt (set by PROMPT) *) 


cliStandardInput : BPTR; © (* Default (terminal) CLI input *) 
cliCurrentInput : PTR; © (* Current CLI input *) 





cliCommandFile : BSTR; (* Name of EXECUTE command file *) 
cliInteractive : LONGINT; (* Boolean: True if prompts required *) 
c1iBackground : LONGINT; (* Boolean: True if CLI created by RUN*) 


cliCurrentQutput : BPTR; (* Current CLI output *) 

cliDefaultStack : LONGINT; (* Stack size to be obtained in Iwords*) 

cliStandardOutput : BPTR; (* Default (terminal) CLI output *) 

cliModule : BPTR; (* Seglist of currently loaded command*) 
END; 





CONST 
(* definitions for ditype field of DeviceList record *) 
OLTDevice = OD; 
DLTOirectory = 10; 
OLTVolume =» 20; 


TYPE 
(* Note From dosextens.h file from which this structure was taken. 
* This structure needs some work. It should really be a union, because 
* it can take on different values depending on whether it is a device, 
* an assigned directory, or a volume. For now it reflects a volume. 
DeviceListPtr = POINTER TO DeviceList; 
DeviceList = RECORD 








dINext : BPTR; (* bptr to next device list *) 
dlType : LONGINT; 
diTask : MsgPortPtr; (* ptr to handler task *) 
diLack : BPTR; (* not for volumes *) 
diVolumeDate : DateStampRecord; (* creation date *) 
diLockList : BPTR; (* outstanding locks *) 
d1DiskType = LONGINT; (* "p08", etc. *) 
dlunused LONGINT; 
diNane BSTR; (* bep? to name *) 

END; 


END AmigaDOSExt. 
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Module AmigaDOSProcess 


(OI IR IR RRR RRR IR RITTER REAR IRE IREE RETIRE IEE RS CREE REIS 


« Modula-2 Software Construction Set * 
i (c) 1986 by Leon Frenkel * 
poperrerprerertrrrererctr: Tcavterersavoot. peveseerncrrtrecrre ert teettereces 
* Name: Ami gaDOSProcess.DEF Version: Amiga.00.00 * 
* Created: 11/18/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: AmigaDOS Process related types/functions. * 


JERI II ITI IO IOI IOI IIIT ITI TTI TI TI TIT IIT TRE REARS RE REESE ATER) 


DEFINITION MODULE AmigaDOSProcess; 


FROM SYSTEM IMPORT ADDRESS; 

FROM System IMPORT DOSBase; (* Used by IMPLEMENTATION MODULE *) 
FROM AmigaDOS IMPORT BPTR; 

FROM Ports IMPORT Message, MessagePtr, MsgPort, MsgPortPtr; 
FROM Tasks IMPORT Task; 


(* All DOS processes have this structure *) 

(* Create and DeviceProc returns pointer to the MsgPort in this structure *) 
(* To get a pointer to the process the following assignment can be done: *) 
(* DevProc = ProcessPtr(DeviceProc(...)-ADDRESS(TSIZE(Task))); *) 





ProcessI0 = ADDRESS; (* process identifier as returned by CreateProc() *) 


ProcessPtr = POINTER TO Process; 
Process = RECORD 
prTask : Task; (* Exec Task structure *) 








prMsgPort (* BPTR address from DOS functions *) 
prPad * Remaining variables on 4 byte boundaries *) 
prSegList (* Array of seg lists used by this process *) 
prStackSize : LONGINT; (* Size of process stack in bytes *) 
prGlobVec : ADDRESS; (* Global vector for this process *) 
prTaskNum (* CLI task number or zero if a CLI *) 
prStackBase Ptrto high memory end of stack *) 
prResult2 Value of 2nd result from last call *) 
prCurrentOir Lock associated with current dir *) 
prcIs Current CLI Input Stream *) 
prcos z Current CLI Output Stream *) 
prConsoleTask =: Console handler process for current window *) 
prFileSystemTask : File handler process for current dirve *) 
prcLt : pointer to ConsoleLineinterpreter*) 
prReturnAddr pointer to previous stack frame *) 
prPktWait function to be called when awaiting msg *) 
prWindowPtr : Window for error printing *) 

END; 


(* This 1s the extension to EXEC Messages used by DOS *) 

DosPacketPtr = POINTER TO DosPacket; 

DosPacket = RECORD 
dpLink 
dpPort 


MessagePtr; (* Exec message *) 
MsgPortPtr; (* Reply port for the packet 
must be filled in each send *) 
dpType : LONGINT;  (* See Action... below and 
*°R? means Read, ’W’ means Write to the 
file system *) 
dpResl : LONGINT;  (* For file system calls this is what would 
* have been returned by IoErr() *) 
dpRes2 : LONGINT; (* For file system calls this is what would 
have been returned by IoErr() *) 





dpArgl : LONGINT; 
dpArg2 : LONGINT; 
dpArg3 : LONGINT; 
dpArg4 : LONGINT; 
dpArg5 : LONGINT; 
dpArg6 : LONGINT; 
dpArg7 : LONGINT; 

END; 


(* A Packet does not require the Message to be before it in memory, but 
* for convenience it is useful to associate the two. 
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StandardPacketPtr = POINTER TO StandardPacket; 
StandardPacket = RECORD 

spMsg : Message; 

spPkt : DosPacket; 


END; 
cONsT 
(* Packet Types *) 
Acti onNIL = 00; 
Act {onGetBlock = 20; 
ActionSetMap = 40; 
ActionDie = 50; 
ActionEvent = 60; 
ActionCurrentVolume = 70; 
ActionLocatedbject = 80; 
ActionRenameDisk = 90; 
Actionwrite = LONGINT(’W?); 
Acti onRead = LONGINT(’R’); 
Act onFreeLack = 150; 
ActionDeletedbject = 160; 
ActionRenameObject = 170; 
ActionCopyDir = 190; 
ActionWaitchar = 200; 
ActionSetProtect = 210; 
ActionCreateDir = 220; 
ActionExamineObject = 230; 
ActionExamineNext = 240; 
ActionD1skInfo = 250; 
ActionInfo = 260; 
ActionSetComment = 28D; 
ActionParent = 290; 
ActionTimer = 300; 
ActionInhibit = 310; 
Acti oni skType = 320; 
ActionDiskChange = 330; 
ActionSetFileDate = 340; 
ActionSetRawMade = 9940; 


PROCEDURE CreateProc(name: ADDRESS; pri: LONGINT; 
segment: ADDRESS; stackSiz 
(* Create a new pracess. 





LONGINT): ProcessID; 


fame - null terminated string 

pri - priority to be given to process 

segment - pointer to segment list, as returned by LoadSeg() 
stackSize - size of root stack in bytes 


result - the ProcessIO or O if an error occured *) 


PROCEDURE Delay(ticks: LONGINT); 
(* Delay a process for a specified amount of time. 


ticks - number of ticks to wait (50 ticks/second) *) 


PROCEDURE DeviceProc(name: ADDRESS): ProcessID; 
(* Return the process identifier of the process handling that 1/0. 


name - null terminated string 


result - process idenifier of the device handler or O if not found. 
If the name refers to a file on a mounted device then a 
pointer to a directory lock is returned by IoErr() *) 


PROCEDURE Exit(returnCode: LONGINT); 
(* Exit from a process. 


returnCode - if the process 1s runing under the CLI this will be the 
return code returned to the CLI. If the program is running 
as a distinct process, Exit deletes the process and releases 
the space associated with the stack, segment list, and process 
structure *) 


Module AmigaDOSProcess 
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PROCEDURE GetPacket(wait: LONGINT): DosPacketPtr; 
(* Returns a packet if one is ready. 


wait - if (-1) then wait for a packet if not ready. if (0) then don’t 
wait if packet 1s not ready 


result - pointer to packet, O if no packet was ready *) 
PROCEDURE QueuePacket(VAR packet: DosPacket): LONGINT; 
(* Queue a packet. 

packet - a dos packet 


result - succesfull(-1) or fail(0) 22? *) 


END AmigaDOSProcess. 
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* Modula-2 Software Construction Set * 
* (ce) 1986 by Leon Frenkel * 
retireteeitttte tte iee ter teat secetareesuy eee sre caer rec aet carter cere aereed 
* Name: Areas.DEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 05/08/87 Author: Leon Frenkel * 
* Description: Graphics Areas types/funct ions. * 


HAN RRAMRRHRE EAE RR RERRREREE RR EERR IR AIRE RERER EERIE ERAS ERES EERE ARREREEE ER HHH) 
DEFINITION MODULE Areas; 


FROM SYSTEM IMPORT ADDRESS; 


FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Rasters IMPORT RastPort; 


TYPE 

AreaInfoPtr = POINTER TO Arealnfo; 

AreaInfo = RECORD 
VetrTbl : ADDRESS; (* ptr to start of vector table *) 
VetrPtr : ADDRESS; (* ptr to current vertex *) 
FlagTb] : ADDRESS; (* ptr to start of vector flag table *) 
FlagPtr : ADDRESS; (* ptrs to areafill flags *) 
Count — : INTEGER; (* number of vertices in list *) 
MaxCount : INTEGER; (* AreaMove/Oraw will not allow Count>MaxCount *) 
FirstX : INTEGER; (* first point for this polygon *) 
Firsty : INTEGER; 

END; 


PROCEDURE AreaCircle(VAR rp: RastPort; cx, cy, radius: INTEGER): INTEGER; 
(* Add a circle to areainfo list for areafill. This function coresponds 
* to the ’C’ language macro. The c macro {s: 

* #define AreaCircle(rp,cx,cy,r) AreaEllipse(rp,cx,cy,r,r); 





rp - a RastPort structure 
cx - x part of *centerpoint" coordinate in raster 
cy - y part of *centerpoint* coordinate in raster 
radius - radius of circle 


result - 0 = na error, -1 = no space left in vector list *) 
PROCEDURE AreaDraw(VAR rp: RastPort; x, y: INTEGER): INTEGER; 
(* Add a point to a list of end points for areafill. 
rp - RastPort structure 
x - x part of coordinate of a point in the raster 
y - y part of coordinate of a point in the raster 
result - 0 = no error, -1 = no space left in vector list *) 
PROCEDURE AreaEllipse(VAR rp: RastPort; cx, cy, a, b: INTEGER): INTEGER; 
(* Add an ellipse to areainfo list for areafill. 
rp - a RastPort structure 
cx - x part of *centerpaint" coordinate in raster 
cy - y part of "centerpoint* coordinate in raster 
a - the horizontal radius of the ellipse (note: a must be > 0) 
b - the vertical radius of the ellipse (note: b must be > 0) 
result - 0 = no error, -1 = no space left in vector list *) 
PROCEDURE AreaEnd(VAR rp: RastPort): INTEGER; 
(* Process table of vectors and produce areafill. 
rp - RastPort structure 


result - 0 = no error, -1 = error occured *) 


Module Areas 
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PROCEDURE AreaMove(VAR rp: RastPort; x, y: INTEGER): INTEGER; 
(* Define a new starting point for a new shape in the vector list. 


rp - RastPort structure 
x - x part of coordinate of a point in the raster 
y - y part of coordinate of a point in the raster 


result - 0= no error, -1 = no space left in vector list *) 


PROCEOURE InitArea(VAR areainfo: AreaInfo; buffer: ADDRESS; maxvects: 


(* Initialize vector collection matrix. 
areainfo - AreaInfo structure 
buffer - pointer to chunk of memory to collect vertices 
maxvectors - max number of vectors thsi buffer can hold *) 


END Areas. 
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Module ASCII 
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* Modula-2 Software Construction Set * 
* (c) 1987 by Leon Frenkel * 
IUD CHORES IRENE IOUI II ETE TICE ITER RIOR REE RERIRRT 
* Name: ASCII.DEF Version: Amiga.00.00 * 
* Created: 07/22/87 Updated: 07/24/87 Author: Leon Frenkel . 
* Description: ASCII codes and functions. * 
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DEFINITION MODULE ASCII; 


(*$L+*) 

CONST 
NUL = OC; SOH = O1C; STX = O2C; ETX = 03C; EOT = O4C; ENQ = O5C; 
ACK » O6C; BEL = O7C; BS = 10C; HT = 11C; LF = 12C; VT = 13C; 
FF = 14C; CR = 15C; SO = 16C; SI = 17C; DLE = 20C; DCi = 21C; 
0C2 = 22C; C3 = 23C; DC4 = 24C; NAK = 25C; SYN = 26C; ETB = 27C; 
CAN = 30C; EM = 31C; SUB = 32C; ESC = 33C; FS = 34C; GS = 35C; 
RS = 36C; US = 37C; DEL = 177C; 
Octalchars *01234567"; 


DecimalChars = '0123456789’ ; 
HexadecimalChars = '0123456789ABCDEF’ ; 
AlphabetChars = 'ABCDEFGHIIKLMNOPQRSTUVWXYZ" ; 
RealChars = '0123456789.E+-"; 


TYPE 
CharCases = (Upper, Lower, UpperOrLower, Shift, Control, Controlshift); 


PROCEDURE CharIsPrintable(Ch: CHAR): BOOLEAN; 
(* Returns TRUE if Ch is printable and ASCII *) 


PROCEDURE CharIsControl(Ch: CHAR): BOOLEAN; 
(* Returns TRUE if Ch is ASCII control char *) 


PROCEDURE CharIsASCII(Ch: CHAR): BOOLEAN; 
(* Returns TRUE if (CharIsPrintable OR CharIsControl) *) 


END ASCII. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel = 
porerecgrererererrrerererrcat revere: svseresecuaeerrcrerrert tac retceret Teter 
* Name: Aud{oDevice.DEF Version: Amiga.00.00 * 
* Created: 11/17/86 Updated: 05/07/87 Author: Leon Frenkel * 
* Description: Audio Device. * 


RRR NR ERRE ARN RA RNAI RARER ERE RRERREER REAR EERE REREREEEREREARAREREEEREE EER) 
DEFINITION MODULE AudioDevice; 


FROM SYSTEM IMPORT ADDRESS; 
FROM IODevices IMPORT CmdNonStd, IORequest; 
FROM Ports IMPORT Message; 


CONST 
AudioName = “audio.device"; 


(* Audio Channels *) 
LeftO = 0; 

RightO = 
Rightl = 2; 
Leftl = 3; 








TYPE 
AudioChannelsSet = SET OF [LeftO..Lefti]; 


CONST 
ADHardChannels = 4; 


ADAllocMinPrec = -128; 
ADAllocMaxPrec = 127; 


ADCmdFree = CmdNonstd + 0; 
ADCmdSetPrec = CmdNonStd + 1; 
AOCmdFinish = CmdNanStd + 2; 
ADCmdPerVol = CmdNonStd + 3; 
ADCmdLack = CndNonStd + 4; 
ADCmdWaitCycle = CmdNonStd + 5; 
ADCmdNoUnit = 20H; (* ADCMF_NOUNIT (1<<5) ): 


ADCmdAllacate = 20H; (* ADCMD ALLOCATE (ADCMF_NOUNIT+0) 


* 


(* 1oFlags := I0FlagsSet{ } *) 
ADIOPerVol = 

ApIOSynecycle = 
ADTONOWatt =6; 
ADIOWriteMessage = 7; 








ADIGErrNoAllocation = -10; 
ADIOErrAllocFailed 
ADIOErrChannelStolen = - 








TYPE 

ToAudioPtr = POINTER TO I0Aud1o; 

TOAudio = RECORD 
joaRequest : I0Request; 
4oaAllocKey : INTEGER; 
joaData : ADDRESS; 
foaLength : LONGCARD; 
joaPeriod : CARDINAL; 
joaVolume : CARDINAL; 
doaCycles : CARDINAL; 
joaWriteMsg : Message; 

END; 


END AudioDevice. 
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Module Blit 


(ARERR ARAN RIAA RIES RERERRER EEE ER ERRERARERERERERERERERIER EERE IRE REE ERE EE RES 


* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel . 
UIUC RRR RR REAR RE RRR RR REAR RR RR EH RE REE REEERREE EERE 
* Name: B1it.DEF Version: Amiga.00.00 * 
* Created: 11/24/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: Graphics Blitter types/functions. * 


MARANAEATANARTNARATHEERAERRTNUR ASIN RESERRESRAREERRREREAEEREARREREA REESE RASHEED) 
OEFINITION MODULE Blit; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 

FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Graphics IMPORT 8itMap; 

FROM Rasters IMPORT RastPort; 


CONST 
HSizeBits = 6; 
VsizeBits = 16 - HSizeBits; 
HSizeMask = 3FH; (* 2°6 -- 1 *) 
VSizeMask = 3FFH; (* 2710 - 1 *) 


MaxBytesPerRow = 128; 


(* definitions for blitter control register 0 *) 
NANBNC = 0; 
NANBC 
NABNC 
NABC 
ANBNC 
ANBC 
ABNC 
ABC 

Dest 
Srec 
SrcB 
SrcA 





(* some commonly used operations *) 
AorB = {ABC, ANBC, NABC, ABNC, ANBNC, NABNC}; 
AorC = (ABC, NABC, ABNC, ANBC, NANBC, ANBNC}; 
AxorC = ({NABC, ABNC, NANBC, ANBNC); 
AtoD = {ABC, ANBC, ABNC, ANBNC}; 


AShiftShift = 12; (* bits to right align ashift value *) 
Bshiftshift = 12; (* bits to right align bshift value *) 


(* definitions for blitter control register 1 bits *) 


LineMode = 0; 

Onedot = 1; (* one dot per horizontal line *) 
FillCarryIn = 2; 

FAllor =3; 

FillXor = 4; 

OvFlag 55 

SignFlag = 6; 
BlitReverse = OneDot; 

SUD = 4; 

SUL = 3; 

AUL = 2; 

Octant8 = (SUD, SUL); 
Octant7 = (AUL}; 

Octanté = (SUL, AUL); 
Octant5 = (SUD, SUL, AUL}; 
Octant4 = (SUD, AUL}; 
Octant3 = (SUL); 

Octant2 = {}; 


Octant1 
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Module Blit 


TYPE 
(* stuff for bIit queuer *) 
bitnodeptr = POINTER TO bltnode; 
bitnode = RECORD 





n : bltnodeptr; 

function : ADDRESS; 

stat BYTE; 

blitsize : INTEGER; 

beamsyne : INTEGER; 

cleanup : ADDRESS; 
END; 


CONST 
(* defined bits for bitstat *) 
CleanUp = 40H; 
CleanMe = CleanUp; 


TYPE 
(* Flags type for B1tClear() function *) 
BltClearFlagsSet = SET OF [0..31]; 


CONST 
(* Flag definitions for B1tClear function *) 
BltClearWait = 0; (* force func to wait until blit 1s done *) 
BltClearxy = 1; (* use row/bytesperrow *) 


TYPE 
MinTermFlagsSet = SET OF [0..7]; 


PROCEOURE B1tBitMap(VAR SrcBitMap: BitMap; SrcX, SrcY: INTEGER; 
VAR OstBitMap: BitMap; DstX, OstY: INTEGER; 
SizeX, SizeY: INTEGER; Minterm: MinTermFlagsSet; 
Mask: BYTE; TempA: ADDRESS): LONGCARD; 

(* Move a rectangular region of bits in a BitMap. 


SrcBitMap - the source bitmap structure 

SrcX - the x component of the upper left corner of the source rectangle 
SrcY - the y component of the upper left corner of the source rectangle 
DstBitMap - the destination bitmap structure 

Ostx - the x component of the upper left corner of the dest rectangle 
DstY - the y component of the upper left corner of the dest rectangle 
SizeX - the width of the rectange to be moved 

SizeY - the height of the rectangle to be moved 

Minterm - the logic function to apply to the rectangle 

Mask - the write mask to apply to this operation 

TempA - Ptr to chip memory for one source line or NIL 


result - the number of planes actually involved in the blit *) 


PROCEDURE BItBitMapRastPort(VAR srcbm: BitMap; srcX, srcY: INTEGER; 
VAR dstrp: RastPort; destX,destY: INTEGER; 
sizeX, sizeY: INTEGER; minterm: MinTermFlagsSet) ; 
(* Bit from source bitmap to destination rastport. 


srcbm - a pointer to the source bitmap 
srex - x offset into source bitmap 
srcy - y offset into source bitmap 
destrp - a pointer to the destination rastport 
destX - x offset into dest rastport 

destY - y offset into dest rastport 

sizeX - width of blit in pixels 

sizeY - height of blit in rows 

minterm - minterm to use for this blit *) 
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PROCEDURE B1tClear(memBlack: ADDRESS; bytecount: LONGCARD; 
flags: BltClearFlagsSet); 
(* Clear a block of memory words to zero. 


memBlock - pointer to local memory to be cleared 
bytecount - if bit 1 of flags = 0 then even number of bytes to clear, else 


low 16-bits is taken as number of bytes per row and upper 16-bits 
taken as number of rows 


flags - set bit O to force function to wait until blit is done 
set bit 1 to use row/bytesperrow *) 


PROCEDURE B1tMaskBitMapRastPort(VAR srcbm: BitMap; srcx, srcy: INTEGER; 
VAR dstrp: RastPort; destX, destY: INTEGER; 
sizeX, sizeY: INTEGER; minterm: MinTermFlagsSet; 
bitmask : ADDRESS); 

(* Blit from source bitmap to dest bitmap rastport with masking of source image. 


srcbm - a pointer to the source bitmap 

srex - x offset into source bitmap 

srey - y offset into source bitmap 

destrp - a pointer to the destination rastport 

destX - x offset into dest rastport 

destY - y offset into dest rastport 

sizeX - width of blit in pixels 

sizeY - height of blit in rows 

minterm - either (ABC|ABNC|ANBC) if copy source and blit thru mask 
or (ANBC) if invert source and blit thru mask 

bitmask - pointer to the signle bit-plane mask, which must be the same size 
and dimension as the planes of the source bitmap *) 


PROCEOURE B1tPattern(VAR rp: RastPort; mask: ADDRESS; 


x1, yl, maxx, maxy : INTEGER; bytecnt : INTEGER); 
(* Using standard drawing rules for areafill, blit through a mask. 





rp - point to RastPort 

mask - points to 2 dimensional mask or if NIL then use a rectangle 
x1 - x of upper left of rectangular region in RastPort 

xy - y of upper left of rectangular region in RastPort 

maxx - x of pointer to lower right of rectangular region in RastPort 
maxy - y of pointer to lower right of rectangular region in RastPort 
bytecnt - BytesPerRow for mask *) 


PROCEOURE BltTemplate(SrcTemplate: ADDRESS; SrcX: INTEGER; SrcMod: INTEGER; 
VAR rp: RastPort; DstX, OstY: INTEGER; 
SizeX, SizeY: INTEGER); 

(* Cookie cut a shape in a rectangle to the RastPort. 


SrcTemplate - pointer to the first (neaerst) word of the template mask 

SrcX - x bit offset into the template mask (range 0..15) 

SrcMod - number of bytes per row in template mask 

rp - pointer to desination RastPort 

DstX - x of cordinate of the upper left corner of the desination for the blit 
DstY - y of cordinate of the upper left corner of the desination for the blit 
Sizex - x size of the rectange to be used as the template 

SizeY - y size of the rectange to be used as the template *) 





Module Blit 
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Module Blit 


PROCEDURE ClipBlit(VAR Src: RastPort; SrcX, SrcY: INTEGER; 
VAR Dest: RastPort; DestX, DestY: INTEGER; 
XSize, YSize: INTEGER; Minte! MinTermFlagsSet); 








(* Calls BItB1tMap() after accounting for windows. 


Sre - RastPort of the source for your blit 

SreX - x component of the topleft offset into Src for your data 

SrcY - y component of the topleft offset into Src for your data 

Dest - RastPort to receive the blitted data 

DestX - x component of the topleft offset into destination RastPort 

DestY - y component of the topleft offset into destination RastPort 

xSize - the width of the blit 

YSize - the height of the blit 

Minterm - the boolean blitter function, where SRCB is associated with the 
Src RastPort and SRCC goes to the Dest RastPort *) 





PROCEDURE DisownBlitter; 
(* Return blitter to free state. *) 


PROCEDURE OwnBlitter; 
(* Get the blitter for private usage. *) 


PROCEOURE QB1it(VAR bp: bltnade); 

(* Queue up a request for blitter usage. 
bp - a blit structure *) 

PROCEDURE QBSBI1t(VAR bsp: bItnode); 

(* Synchronize the blitter request with the video beam. 
bsp - a blit structure. *) 

PROCEDURE VBeamPos(): LONGINT; 

(* Get vertical beam position at this instant. 
result - current beam position in the range of 0..511 *) 


PROCEDURE WaitBlit; 
(* Wait for the blitter to be finished before proceeding with anythin else. *) 


PROCEDURE WaitTOF; 
(* Wait for the top of the next video frame. *) 


END Blit. 
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Module BootBlock 


(OBOE IIE OTIIUI TOUIT OTR TTI IOI III IIIT IIIT IA TIE RTI 


* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
et EEeaee tet ieeent te etae sees ft arectntcntveer ann atten entree ann ann anes 
* Name: BootBlock. DEF Version: Amiga.00.00 * 
* Created: 11/26/86 Updated: 11/26/86 Author: Leon Frenkel * 
* Description: Disk Boot Block types. * 


MAEANSAAAAAAAAAAAEAAEARER RARER EERE REAERERE RE REREERERERARESAR EARS REREREARAE) 


DEFINITION MODULE BootBlock; 


TYPE 
BootBlockPtr = POINTER TO BootBlock; 
BootBlock = RECORD 
bbid : LONGCARD; (* 4 char ideinifier *) 
bbchksum =: LONGINT; (* boot block checksum (balance) *) 
bbdosblock : LONGINT; (* reserved for DOS patch *) 
END; 


CONST 
BootSects = 2; (* 1K bootstrap *) 


BBNameDos = 444F5300H; (* "DOS’ *) 
BBNameKick = 4849434BH; (* *KICK’ *) 


END BootBlock. 
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Module CIAHardware 


(ERR RRR RRR RRR RRR ERR RR RRR R RR REREII RR RRRIRE RARE ERAT RERERE IEEE SETAE 


* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
Weeprrrrerrecrrrerrrrerrecs se sreerersarree ae eoie rar rare rac terete rac tet atts 
* Name: CIAHardware.DEF Version: Amiga.00.00 * 
* Created: 11/27/86 Updated: 05/05/87 Author: Leon Frenkel * 
* Description: Amiga Complex Interface Adapter definitions. * 


pereerenvetreceteas seretee seusucccc seen lrece cen stec se saneatec le] ooo Cole ea rong) 
DEFINITION MODULE CIAHardware 

FROM SYSTEM IMPORT BYTE; 

(*$L4*) 


TYPE 


CIAPAD = ARRAY [0..253] OF BYTE; (* 254 bytes (also causes word alignment) * 
CIABITS = SET OF [0..7]; 


CIAPtr = POINTER TO CIA; 

CIA = RECORD 
ciapra 
pado 
claprb 
padi 
ciaddra 
pad2 
ciaddrb 
pad3 
ciatalo 
pad4 
cfatahi 
pad5 
ciatblo 
padé 
cfatbhi 
pad? 
ciatodlow : CIABITS; 
pads : CIAPAD; 
ciatodmid : CIABITS; 
pad9 : CIAPAD; 
ciatodht : CIABITS; 
pad10 : CIAPAD; 
unusedreg : CIABITS; 
pail CIAPAD; 
ciasdr —: CIABITS; 
padi2 CIAPAD; 
ciaicr CIABITS; 
pad13 CIAPAD; 
ciacra CIABITS; 
padi4 CIAPAD; 
ciacrb CIABITS; 

ENO; 








CONST 
(* interrupt control register bit numbers *) 
CIAicrTA = 
CIAicrTB = 
CIAicrALRM = 
CIAicrsP = 
CIAicrFLG = 
CIAicrIR = 
CIAicrSETCLR = 





(* contro] register A bit numbers *) 
CIAcraSTART = 0; 

CIAcraPBON 
CIAcraQUTMODE 
CIAcraRUNMODE 
CIAcraLOAD 
CIAcraINMODE 
CIAcraSPMODE 
CIAcraTODIN 
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(* control register 8 bit numbers *) 
CIAcrbSTART = 0; 


CIAcrbPBON =1; 
CIAcrbOUTMODE = 2; 
CIAcrbRUNMODE = 3; 
CIAcrbLOAD = 4; 
CIAcrbINMODEO = 5; 
CIAcrbINMODE1 = 6; 
CIAcrbALARM == 7; 


(* control register 8 INMODE masks *) 

CIAcrbInPHI2 = CIABITS(}; 

CIAcrbInCNT = CIABITS{CIAcrbINMODEO} ; 

CIAcrbInTA = CIABITS{CIAcrbINMODEL) ; 

CIAcrbINCNTTA = CIABITS{CIAcrbINMODEO, CIAcrbINMODE1); 


(COURIC I I CRITTER RRA RRR RE RE RA REE RI REAR RARE AS RARE RERR HD 


(* Port definitions - what e ‘ipheral register is tied to *) 


(et arm er enor nan eR: SRI R RR RR RRR REAR RA RRR) 






(* ciaa port A (Oxbfe001) *) 
CIAGamePort1 = 7; (* gameport 1, pin 6 (fire button) *) 





- gameport 0, pin 6 (fire button) *) 
CIADskKRdy == disk ready *) 

CIADskTrackO = disk on track 00 *) 

CIADskProt = disk write protect *) 
CIADskChange = disk change *) 

CIALEO * led light control (O==>bright) *) 
CIAQverlay = memory overlay bit *) 


(* claa port 8 (Oxbfel01) -- parallel port *) 


(* ctab port A (Oxbfd000) -- serial and printer control *) 
R 





= 7; (* serial Data Terminal Ready *) 

S «= 6; (* serial Request to Send *) 
CIAComcD = 5; (* serial Carrier Detect *) 
CIAComCTS = 4; (* serial Clear to Send *) 
CIAComOSR = 3; (* serial Data Set Ready *) 
CIAPrtrSEL = 2; (* printer SELECT *) 
CIAPrtrPOUT = 1; (* printer paper out *) 
CIAPrtrBUSY = 0; (* printer busy *) 


(* clab port B (Oxbfd100) -- disk control *) 


CIADSKMOTOR = 7; (* disk motor *) 
CIADSKSEL3 = 6; (* disk select unit 3 *) 
CIADSKSEL2 = 5; (* disk select unit 2 *) 
CIADSKSEL1 = 4; (* disk select unit 1 *) 
CIADSKSELO = 3; (* disk select unit 0 *) 
CIADSKSIDE = 2; (* disk side select *) 
CIADSKDIREC = 1; (* disk direction of seek *) 
CIADSkSTEP = 0; (* disk step heads *) 
VAR 
(* ciaa 4s on an O00 address (e.g. the low byte) -- $bfe001 *) 


(* ciab 4s on an EVEN address (e.g. the high byte) -- $ofd000 —*) 
(* initialized to point to the above specified hardware addresses *) 
ctaa : CIAPtr; 
ciab : CIAPtr; 





END CIAHardware. 


Module CIAHardware 
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Module CIAResource 


(ARERR IRR RR RRR RR NEAR RRRA RR RRERERAR EERE ER EERERR ER REESE RERE ERA AHAERE EEE 





* Modula-2 Software Construction Set * 
‘ (c) 1986 by Leon Frenkel * 
ARAAARAAARRARRRRRANRERRRRARERARAHRRARRREARHAAARAOREREAERERO AERA MEER IO RRAS ORS 
* Name: CIAResource DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 11/29/86 Author: Leon Frenkel * 
* Description: Amiga Complex Interface Adapter resource. * 


Porrerensetreccieti te rtaterterureereced fesvecercecececee effort eT ea rerneny 
DEFINITION MODULE CIAResource; 

FROM Interrupts IMPORT Interrupt, InterruptPtr; 

FROM Resources IMPORT Resource; 


CONST 
CIAAName = “ciaa.resource"; 
CIABName = “ciab.resource*; 








PROCEOURE AbleICR(mask: BITSET; VAR resource: Resource): BITSET; 
(* Enable/disable ICR interrupts. 


mask - a bit mask indicating which interrupts to be modified 
resource - a resource structure 


result - the previous enable mask before the requested changes *) 


PROCEOURE AddICRVector(iCRBit: CARDINAL; VAR interrupt: Interrupt; 
VAR resource: Resource): InterruptPtr; 
(* Attach an interrupt handler to a CIA bit. 


{CRBit - bit number to set (0..4) 
interrupt - interrupt structure 
resource - resource structure 


result - NIL if successful, otherwise ptr to current owner interrupt struc *) 
PROCEDURE RemICRVector(iCRBit: CARDINAL; VAR interrupt: Interrupt; 


VAR resource: Resource 
(* Detach an interrupt handler from a CIA bit. 





{CRBit - bit number to set (0..4) 
interrupt - interrupt structure 
resource - resource structure *) 


PROCEDURE SetICR(mask: BITSET; VAR resourc: Resource): BITSET; 
(* Cause, clear, and sample ICR interrupts. 


mask - a bit mask indicating which interrupts to be effected 
resource - resource structure 


result - the previous interrupt register state before making the changes *) 


ENO CIAResource. 
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Module ClipboardDevice 


(Ghibbbibbbibbbeah nahin ner e  ei tare tsterttttrtteteareeeeasenreas 


* Nodula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
Reon ior tee errr getecrrar Sterne vecsee tent et att tateteeataenaes 
* Name: Clipboarddevice.DEF Version: Amiga.00.00 5 
* Created: 11/26/86 Updated: 11/26/86 Author: Leon Frenkel * 


* Description: *clipboard.device® types. * 


SARAEAEARANRAREARAARNREEATARRRREREARRARERARARERAEEEARARSASEEEASEERERSASHEEER) 





OEFINITION MODULE Clipboarddevice; 


FROM SYSTEM IMPORT ADORESS, BYTE; 

FROM I0Devices IMPORT CmdNonStd, DevicePtr, IOFlagsSet, UnitPtr; 
FROM Nodes IMPORT Node; 

FROM Ports IMPORT Message; 


CONST 
CBOPost = CmdNonStd + 0; 
CBOCurrentReadID = CmdNonStd + 1; 
CBOCurrentWriteIO = CmdNonStd + 2; 


CBErrObsoleteIO = 1; 
PrimaryClip = 0; (* primary clip unit *) 


TYPE 
ClipboardUnitPartialPtr = POINTER TO ClipboardUnitPartial; 
ClipboardunitPartial = RECORD 

cuNode ‘Node; (* list of units *) 
LONGCARD; (* unit number for this unit *) 
ining unit data is private to the device*) 





IOCIipReqPtr = POINTER TO I0C1ipReq 
IOC1ipReq = RECORD 
joMessage : 
joDevice (* device node pointer *) 
foUnit : UnitPtr; (* unit (driver private) * 
joCommand : CARDINAL; (* device command * 
joFlags : IOFlagsSet;(* including QUICK and SATISFY *) 
joError : BYTE; (* error or warning num *) 
joActual : LONGCARO; (* number of bytes transfered *) 





foLength : LONGCARO; (* number of bytes requested *) 
joData : ADDRESS; (* either clip stream or post port *) 
JoOPfset : LONGCARD; (* offset in clip steam *) 
foClipID : LONGINT; (* ordinal clip identifier ay 

END; 


SatisfyMsgPtr = POINTER TO SatisfyMsg; 

SatisfyMsg = RECORD 
smMsg : Message; (* the length will be 6 *) 
saUnit : CARDINAL; (* which clip unit this 1s *) 


smClipID : LONGINT; (* the clip idenitifier of the post *) 
END; 


END ClipboardDevice. 
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Module Clipping 


(COT ROII I RRRIRRIREIRSREIRRR TRAE 


* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
SUCROSE RR ERR RT RI RRR IRR RARER RET 
* Name: Clipping. DEF Version: Amiga.00.00 . 
* Created: 11/24/86 Updated: 11/24/86 Author: Leon Frenkel * 
* Description: Clipping types including Layers. * 


FRIESE III I IOI TI TI ITT RTI III ITI TI TID III III II III III IIIT) 


DEFINITION MODULE Clipping; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 

FROM Graphics IMPORT BitMapPtr, Rectangle; 
FROM Lists IMPORT MinList, List; 

FROM Rasters IMPORT RastPortPtr; 

FROM Regions IMPORT RegianPtr; 

FROM Semaphores IMPORT SignalSemaphore; 


TYPE 
(* Pointer to types *) 
LayerPtr = POINTER TO Layer; 
ClipRectPtr = POINTER TO ClipRec' 
LayerInfoPtr = POINTER TO Layerinfo; 





Layer = RECORD 








front LayerPtr; (* Ignored by roms *) 

back LayerPtr; 

ClipRect ClipRectPtr; (* read by roms to find first cliprect *) 
rp RastPortPtr; (* ignored by roms, I hore *) 

bounds : Rectangle;  (* ignored by roms *) 

reserved : ARRAY [0..3] OF BYTE; 

priortty : CARDINA\ (* system use only *) 

Flags : BITSET; (* obscured ?, Virtual BitMap? *) 
SuperBitMap : BitMapPtr; 


(* super bitmap cliprects if VBitMap # NIL else damage cliprect 


* list for refresh 


* 

















SuperClipRect : ClipRectPtr; 
Window : ADDRESS; (* resrved for user interface use *) 
ScrollXx : INTEGER; 
Scrolly INTEGER; 
cr ClipRectPtr; (* used by dedice *) 
er2 ClipRectPt: 
crnew ClipRectPtr; 
SuperSaveClipRects : ClipRectPtr; (* preallocated cr’s *) 
cliprects : ClipRectPtr; (* system use during refresh *) 
: LayerInfoPtr; (* points to head of the list *) 
: SignalSer 
reserved3 ARRAY [0. 
C1ipRegion RegionPt 
saveClipRects RegionPtr; (* used to back out when in trouble *) 
reserved2 : ARRAY [0..21] OF BYTE; 
DamageList : RegionPtr; (* list of rectangles to refresh through *) 
END; 


ClipRect = RECORO 








next ClipRectPtr; (* 
prev ClipRectPtr; (* 
obs LayerPtr;  (* 
BitMap BitMapPtr; 
bounds Rectangle; (* 
pl ClipRectPtr; (* 
p2 : ClipRectPtr; (* 
reserved LONGINT; es 
Flags LONGINT; ( 

END; 
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roms used to find next ClipRect *) 
ignored by roms, used by windowlib *) 
ignored by roms, used by windowlib *) 


set up by windowlib, used by roms *) 
system reserved *) 

system reserved *) 

system use *) 

only exists in layer allocation *) 


LayerInfoFlags = (LayerSimple, 


LayerSmart, 
LayerSuper, 
LIF3 
LayerUpdating, 
LIF, 
LayerBackdrop, 
LayerRefresh, 


(* during BeginUpdate or during Tayerop ) 
(* this happens if out of memory. 
LayerClipRectsLost, 


LIF9, 
LIF10, 
Uri, 
LIF.12, 
L1F13, 
LF14, 
LIF15); 


LayerInfoFlagsSet = SET OF LayerInfoFlags; 


LayerInfo = RECORD 


CONST 


toplayer 


FreeClipRects 
Lock 

gsHead 
longreserved 
Flags 
fattencount 
LockLayersCount 


LayerPtr; 


: LayerPtr; (* system use *) 


LayerInfoextrasize : 


blitburf 
LayerInfoextra 
END; 


(* internal cliprect flags *) 
CRNeedsNoConcealedRasters = 1; 


LayerPtr; (* system use *) 
MinList; 
SignalSemaphore; 
List; (* system use *) 
LONGINT; 
LayerInfoF lagsSet; 
E; 
BYTE; 
CARDINAL; 
ADDRESS; 
ADDRESS; 





(* defines for code values for getcode *) 


IsLessX = 
IsLessY = 
IsGrtrX » 
IsGrtrY = 


1 
23 
4; 
8 


NewLayerInfoCalled = 1; 


AlertLayersNoMem 


END Clipping. 


= 83010000H; 


Module Clipping 
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Module CList 


(OR I RAR RRR RR RRR ERR EERE RRR RE EERE REESE RES IES ER ETRE II STRSTR SETTER 


* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
SARANRRAARERARAASHERRAEARERRERIRERRIR AREA RRRIR EE AIRRER RA RERIRSAE ARERR RR EER 
* Name: CList.DEF Version: Amiga.00.00 id 
* Created: 11/28/86 Updated: 11/28/86 Author: Leon Frenkel * 
* Description: *clist.1ibrary* functions. * 
* WARNING: Version 1.2 of the ROM Kernel does not have the "clist.1ibrary* * 
* included. So an OpenLibrary() will fail. However the library  * 
* may be restored in future versions of the ROM Kernel, in which * 
* case this module may again becone useful again. * 


JUSRIGI III I IIR IIIT I SII ORR I TRIER AIA RARE RT RSAT AY 


DEFINITION MODULE CList; 
FROM SYSTEM IMPORT ADDRESS, BYTE, WORD; 
FROM Libraries IMPORT LibraryPtr; 
CONST 

CListName = "clist.library*; 
VAR 

CListBase : LibraryPtr; 


TYPE 
CListPool = ADDRESS; 
CListOesc = LONGINT; 


PROCEDURE AllocCList(cLPool: CListPool): CListDesc; 
(* Allocate and initialize a clist. 
cLPool - a clist pool that has already been initialized 
result - a longword descriptor for a clist that can be used for clist func 
if result < 0 then no space available for new clist *) 
PROCEDURE ConcatCList(sourceCList, destCList: CListDesc): LONGCARD; 
(* Concatinate two character lists. 


sourceCList - source clist 
destCList - destination clist 


error - if result #0 then ran out of memory *) 
PROCEDURE CopyCList(cList: CListOesc): CListDesc; 
(* Copy aclist to a new clist. 

cList - original clist 

result - new copy of clist, if result <0 then no enough memory *) 
PROCEDURE FlushCList(cList: CListOesc); 
(* Clear a character list. 

cList - clist to be flushed *) 
PROCEOURE FreeCList(cList: CListDesc); 
(* Free a clist. 

cList - clist to be freed *) 
PROCEOURE GetCLBuf(cList: CListDesc; buffer: ADDRESS; 

maxLength: LONGCARD): LONGCARD; 

(* Convert a character list to contiguous data. 


cList - clist descriptor 
buffer - pointer to buffer to be used for operation 
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maxLength - the maximum size of buffer 

result - number of bytes actually copied into buffer. Never greater than 

waxLength. The remaing character are left in the clist *) 

PROCEDURE GetCLChar(cList: CListOesc): LONGINT; 
(* Get a byte from the beginning of a character list. 

cist - clist from which to get byte 

result - the byte from the beginning of the clist or -1 if no data *) 
PROCEDURE GetCLWord(cList: CListDesc): LONGINT; 
(* Get a word from the beginning of a character list. 

cList - clist from which to get word 

result - the word from the beginning of the clist or -1 if no data *) 
PROCEDURE IncrCLMark(cList: CListOesc): LONGCARD; 
(* Increment a clist mark to the next position. 

clist - clist in which to increment mark 

result - non-zero if the next offset is not in the clist *) 
PROCEDURE InitCLPool(cLPool: CListPool; size: LONGCARD): LONGCARD; 
(* Initialize a clist pool. 


cLPool - data area to be used as clist pool 
size - size of the pool, in bytes. Maximum of 16M bytes. 


result - non-zero if pool size is too small to setup clist management *) 


PROCEOURE MarkCList(cList: CListOesc; offset: LONGCARD): LONGCARD; 
(* Mark a position in a clist. 


cList - clist to set the mark in 
offset - byte offset into clist. The first byte is at offset zero. 


result - non-zero if the offset is not in the clist *) 
PROCEDURE PeekCLMark(cList: CListOesc): CHAR; 
(* Peek at the byte in the clist at the mark. 

cist - clist from which to peek 

result - the byte(char) at the mark in the clist *) 
PROCEDURE PutCLBuf(cList: CListDesc; buffer: ADDRESS; length: LONGCARD): LONGCARD; 
(* Convert contiguous data into a character list. 

clist - clist into which to move the data 

buffer - pointer to the buffer from which to read the data 

length - number of bytes of data in the buffer 

result - non-zero indicates the number of bytes not added *) 
PROCEDURE PutCLChar(cList: CListOesc; byte: BYTE): LONGCARD; 
(* Add a byte to the end of a clist. 


cList - clist to be used for operation 
byte - the byte to add to end of clist. (Any object which accipies 8-bits) 


result - non-zero inidicate the byte could not be added *) 


Module CList 
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Module CList 


PROCEDURE PutCLWord(cList: CListOesc; word: WORD): LONGCARD; 
(* Add a word to the end of a clist. 


cList - clist to be used for operation 
word - the word to add to end of clist. (Any object which occipies 16-bits) 


result - non-zero indicates number the number of bytes not added. Partial 
words are not added, so result 1s always zero or two *) 
PROCEDURE SizeCList(cList: CListDesc): LONGCARD; 
(* Get the number of bytes in a clist. 
cist - clist for which to determine size 
result - the number of bytes in the clist *) 
PROCEOURE SplitCList(cList: CListOesc): CListOesc; 
(* Split a clist. 
clist - clist to be split 
result - new clist that contains the tail end of the original clist. if 


not enough memory to build new clist, or the mark is invalid 
result is negative *) 


PROCEDURE SubCList(cList: CListOesc; index, length: LONGCARD): CListDesc; 
(* Copy a substring from a clist. 
cist - clist to be used for operation 
index - offset into the clist to start copying the substring from 
length - number af bytes to copy 
result - clist containg the substring, if result <0 then not enough 
space available for the new clist *) 
PROCEDURE UnGetCLChar(cList: CListOesc; byte: BYTE): LONGCARD; 
(* Add a byte to the beginning of a clist. 


cList - clist to be used for operation 
byte - byte to add to beginning of clist 


result - non-zero indicates the byte could not be added *) 
PROCEDURE UnGetCLWord(cList: CListOesc; word: WORD): LONGCARD; 
(* Add a word to the beginning of a clist. 


clist - clist to be used for operation 
word - word to ad to beginning of clist 


result - non-zero indicates number the number of bytes not added. Partial 
words are not added, so result is always zero or two *) 


PROCEDURE UnPutCLChar(cList: CListDesc): LONGINT; 
(* Get a byte from the end of a clist. 


cList - clist from which to get the byte 


result - the byte from the end of the clist. if no data available then -1 *) 


PROCEOURE UnPutCLWord(cList: CListDesc): LONGINT; 
(* Get a word from the end of a clist. 


cList - clist from which to get the word 
result - the word from the end of the clist or -1 if not enough data *) 


END CList. 
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Module ConfigRegs 
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* Modula-2 Software Construction Set * 
* (c) 1987 by Leon Frenkel * 
Rreerrerretenttertnrertert fcaeterertastsentcecsrecenrcacraearccecereractads 
* Name: ConfigRegs. DEF Version: Amiga.00.00 * 
* Created: 07/22/87 Updated: 07/22/87 Author: Leon Frenkel * 
* Description: Register and bit definitions for expansion boards. * 





SERRA RRA RE ARERR ARRERE EERE EAH) 
DEFINITION MODULE ConfigRegs; 


FROM SYSTEM IMPORT BYTE; 


* many of the constants below consist of a triplet of equivalent 
* definitions: xxMASK 1s a bit mask of those bits that matter. 

* xxBIT 1s the starting bit number of the field. xxSIZE is the 
* number of bits that make up the definition. This method is 

* used when the field is larger than one bit. 


If the field is only one bit wide then the xxB_xx and xxF_xx convention 
* 4s used (xxB_xx is the bit number, and xxF_xx is mask of the bit). 
1) 


CONST 
(* manifest constants *) 
ESlotSize = 10000H; 
ESlotMask = OFFFFH; 
ESlotShift = 16; 


(* these define the two free regions of Zorro memory space. 
* THESE MAY WELL CHANGE FOR FUTURE PRODUCTS! 

=) 

EExpansionBase = OE80000H; 

EExpanstonSize = 0080000H; 

EExpanstonSlots = 8; 


EMemoryBase © = 200000H; 
EMemorySize = 800000H; 
EMemorySlots = 128; 

(* erType definitions *) 


(* board type -- ignore ‘old style" boards *) 
ERTTypeMask = BYTE(OCOH); 


ERTTypeBit = BYTE(6); 
ERTTypeSize = BYTE(2); 
ERTNewBoard = BYTE(OCOH); 


(* type field memory size *) 
ERTMemMask = BYTE(7); 
ERTMemBit = BYTE(Q); 
ERTMemSize = BYTE(3); 


(* other bits defined in type field *) 
ERTChainedConfig = 3; 
ERTDIagValid == 4; 
ERTMemLi st =5; 


(* erFlags byte -- for those things that didn’t fit into the type byte *) 
ERFMemSpace = 7; (* wants to be in 8 meg space. Also 

* implies that board is moveable 

* 
ERFNoShutup = 6; (* board can’t be shut up. Must not 

* be a board. Must be a box that 

* does not pass on the bus. 

* 

) 


figure out amount of memory needed by this box/board 
#define ERT_MEMNEEDED(t) 


(((t)&ERT_MEMMASK)? Ox10000 << (((t)&ERT_MEMMASK) -1) : Ox800000 ) 


By 


same as ERT_MEMNEEDED, but return number of slots 
#define ERT_SLOTSNEEDED(t) \ 


(((t)&ERT_MEMMASK)? 1 << (((t)&ERT_MEMMASK)-1) : 0x80 ) 
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*) 


(* interrupt control register *) 
ECTIntEna 
ECIReset 
ECIInt2Pend 
EcIInté6Pend 
ECIInt7Pend 
EcIInterrupting 





eae ee 


convert a expantion slot number into a memory address 
#define EC_MEMADOR(s1ot) ((slot) << (E_SLOTSHIFT) ) 


a kludge to get the byte offset of a structure 
#define EROFFSET(er)  ((int)&((struct ExpanstanRom * )0)->er) 
#define ECOFFSET(ec) —\ 
(sizeof(struct ExpanstonRom)+((int)&((struct ExpansionControl * )0)->ec)) 
) 


eee Te 


Expansion boards are actually organized such that only one nibble per 
word (16 bits) are valid information. This table is structured 

as LOGICAL information. This means that it never corresponds 
exactly with a physical implementation. 


The expansion space is logically split into two regions: 
a rom portion and a control portion. The rom portion is 
actually stored in one’s complement form (except for the 
er_type field). 


TYPE 
ExpansfonRomPtr = POINTER TO ExpansionRom; 
ExpansionRom = RECORO 


erType : BYTE; 
erProduct : BYTE; 
erFlags : BYTE; 


erReserved03 =: BYTE; 

erManufacturer : CARDINAL; 
erSerialNumber : LONGCARD; 
erinitOiagVec : CARDINAL; 


erReserved0c : BYTE; 
erReserved0d : BYTE; 
erReservedOe : BYTE; 
erReserved0f : BYTE; 
END; 


ExpansionControlPtr = POINTER TO ExpanstonControl; 
ExpansionControl =» RECORD 
ecInterrupt 
ecReservedi1 
ecBaseAddress 
ecShutup 
ecReserved14 
ecReserved15 
ecReserved16 
ecReserved17 
ecReserved18 
ecReserved19 
ecReservedla 
ecReservedlb 
ecReservedic 
ecReservedid 
ecReservedie 
ecReservedif 
END; 


; (* interrupt control register *) 


; (* set new config address *) 
; (* don’t respond, pass config out*) 





(OTS G EIEIO RUE TIO IIIS III RII IIR 
* these are the specifications for the diagnostic area. If the Diagnostic 
* Address Valid bit is set in the Board Type byte (the first byte in 
* expansion space) then the Diag Init vector contains a valid offset. 
* The Diag Init vector is actually a word offset from the base of the 
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board. The resulting address points to the base of the Diagarea 
structure. The structure may be physically implemented either four, 
eight, or sixteen bits wide. The code will be copied out into 

ram first before being called. 


The da_Size field, and both code offsets (da_DiagPoint and da_BootPoint) 
are offsets from the diag area AFTER it has been copied into ram, and 
“de-nibbleized" (if needed). Inotherwords, the size is the size of 

the actual information, not how much address space is required to 

store it. 


All bits are encoded with uninverted logic (e.g. 5 volts on the bus 
is a logic one). 


If your board is to make use of the boot facility then it must leave 
its config area available even after it has been configured. Your 
boot vector will be called AFTER your board’s final address has been 
set. 


ee ee ee ee ee ee a 
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CONST 
(* daConfig definitions *) 
OACBusWidth = BYTE(OCOH); (* two bits for bus width *) 
DACNibbleWide = BYTE(QOOH); 





DACByteWide » BYTE(O40H); 


DACWordWide = BYTE(O80H); 
DACBootTime = BYTE(O30H); (* two bits for when to boot *) 
DACNever = BYTE(QOOH); (* obvious *) 
DACConfigTime = BYTE(O1OH); (* call daBootPoint when first config the device*) 
OACBindTime = BYTE(O20H); (* run when binding drivers to board *) 
TYPE 


DiagAreaPtr = POINTER TO DiagArea; 
OiagArea = RECORD 





daConfig (* see above for definitions *) 
daF lags (* see above for definitions *) 
daSize (* size (in bytes) of toal diag area *) 
daDiagPoint (* start for diagnostics, or zero *) 
daBootPoint : (* start for booting *) 
daName : CARDINAL; (* offset in diag area where a string *) 
(* identifier can be found (or zero *) 
(* 4f no identifier is present). *) 
daReservedO1 : CARDINAL; (* two words of reserved data. must *) 
daReservedO2 : CARDINAL; (* be zero. *) 
END; 

¢ 

* These are the calling conventions for Diag or Boot area 

* 

* AT -- points to at least 2k of stack 

* 06 -- ExecBase 

* AS -- ExpansionBase 

* A3 -- your board’s Configdev structure 

* A2 -- Base of diag/init area that was copied 

* AO -- Base of your board 

* Your board should return a value in 00. if this value is NULL, then 

* the diag/init area that was copied in will be returned to the free 

* memory pool. 

* 


END ConfigRegs. 


Module ConfigRegs 
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Module ConsoleDevice 


(AHRRRARRRRHRRRRRRRAAEREREERRREORRARESAARRRERRERAARRREAEEARAERERRAEARER AEE REEE 


" Modula-2 Software Construction Set * 
7 (c) 1986 by Leon Frenkel i 
peepeererseteetrtetrteterettiartesestarscectcscsceccrtstrtcertcertceraratcess 
* Name: ConsoleDevice.DEF Version: Amiga.00.00 ‘ 
* Created: 11/26/86 Updated: 05/07/87 Author: Leon Frenkel a 
* Description: "console.device* types. nar 
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DEFINITION MODULE ConsoleDevice; 


FROM SYSTEM IMPORT ADDRESS; 

FROM KeyMapResource IMPORT KeyMapPtr:; 

FROM InputEvents IMPORT InputEvent; 

FROM IQDevices IMPORT CmdNonStd, DevicePtr; 


CONST 
ConsoleName = “console.device"; 


VAR 
ConsoleBase : DevicePtr; 


CONST 
(* Console commands *) 
CDAskKeyMap = CudNonstd + 0 
coSetkeyMap = CudNonStd + 1; 
CDAskDefaultKeyMap = CmdNonStd + 2 
CDSetDefaultKeyMap = CmdNonStd + 3 


(* SGR parameters *) 
SGRPrimary = 0; 
SGRBOId «1; 
SGRItalic = 3; 
SGRUnderscore = 4; 
SGRNegative = 7; 


(* these names refer to the ANSI standard, not the implementation *) 


SGRBlack = 30; 
SGRRed == 31; 
SGRGreen = 32; 
SGRYellow = 33; 
SGRBlue = 34; 
SGRMagenta = 35; 
SGRCyan = 36; 
SGRWhite = 37; 
SGRDefault = 39; 
SGRB1ackBG = 40; 
SGRRedBG == 41; 
SGRGreenBG = 42; 
SGRYe1lowBG = 43; 
SGRB1UeBG = 44; 
SGRMagentaBG = 45; 
SGRCyanBG = 46; 
SGRWHiteBG = 47; 
SGROefaultBG = 49; 
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(7 these names refer to the implementation, they are the preferred *) 
(* names for use with the Amiga console device. 
SGRCIrO = 30; 





SGRCIr1 = 
SGRCIr2 = 
SGRCIr3 = 
SGRCIr4 = 
SGRCIr5 = 
SGRCIr6 = 
SGRCIr7 = 
SGRCIrOBG = 40; 
SGRCIr18G = 41; 
SGRC1r2BG = 42; 
SGRCIr3BG = 43; 
SGRCIr4BG = 44; 
SGRCIP5BG = 45; 
SGRCIr6BG = 46; 
SGRCIr7BG = 47; 


(* DSR parameters *) 
DSRCPR = 6; 


(* CTC parameters *) 
CTcHSetTab = = 0 
CTCHCIrTab == 2; 
CTCHCIrTabsAll = 5; 





(* T8C parameters *) 
TBCHCIrTab = 
TBCHCIrTabsAl] = 3; 








(* SM and RM parameters *) 

MLNM = 20; (* linefeed newline mode *) 
MASM = ">1"; (* auto scroll mode *) 
MAWH = "27"; (* auto wrap mode *) 


PROCEDURE RawKeyConvert(VAR event: Input€vent; buffer: ADDRESS; 
Tength: LONGCARD; keyMap: KeyMapPtr): LONGINT; 
(* Decode raw input classes. 


event - Inputevent structure 

buffer - a byte buffer large enough to gold all anticipated chars generated 
by this conversion 

length - maximum anticipation, i.e. the buffer size in bytes 

keyMap - a KeyMap streture pointer, or NIL if the default console device 
keymap is to be used 


result - number of chars in buffer or -1 if buffer overflow occured *) 


END ConsoleDevice. 


Module ConsoleDevice 
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Module ConsoleDevUnit 
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* Modula-2 Software Construction Set * 
* (ce) 1986 by Leon Frenkel * 
prerrerrrrrtrrterrrrsrrt rere serearc arson servsecnr fre recrerr fer tectec reeds 
* Name: ConsoleDevUnit.OEF Version: Amiga.00.00 « 
* Created: 11/26/86 Updated: 05/21/87 Author: Leon Frenkel * 
* Description: Console device unit definitions. * 
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DEFINITION MODULE ConsoleDevUnit; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 
FROM ConsoleDevice IMPORT MLNM; 
FROM Input€vents IMPORT IEClassMax; 
FROM KeyMapResource IMPORT KeyMap; 
FROM Ports IMPORT MsgPort; 


CONST 
PMBASM = MLNM + 1;  (* internal storage bit for AS flag *) 
PMBAWH = PMBASM + 1; (* internal storage bit for AW flag *) 
MaxTabs = 80; 


TYPE 
ConUnitPtr = POINTER TO ConUnit; 
ConUnit = RECORD 


cuMP : MsgPort; 

(* read only variables *) 

cuWindow : ADDRESS; (* WindowPtr intui window bound to this unit *) 
cuXCP : INTEGER; (* character position *) 

cuyce : INTEGER; 

cuxMax : INTEGER; (* max character position *) 

cuYMax 2 INTEGER; 

cuXRSize : INTEGER; (* character raster size *) 

cuYRSize : INTEGER; 

cuxROrigin : INTEGER; (* raster origin *) 

cuYROrigin : INTEGER; 

cuXxRExtant: : INTEGER; (* raster maxima *) 

cuYRExtant : INTEGER; 

cuxMinShrink : INTEGER; (* smallest area intact from resize process *) 
cuYMinShrink =: INTEGER; 

cuxccPe : INTEGER; (* cursor position *) 

euYccp : INTEGER; 

(* ---- read/write variables (writes must must be protected) *) 





- storage for AskKeyMap and SetKeyMap *) 
cukeyMapStruct : KeyMap; 


(* tab stops, 0 at start, $FFFF at end of list *) 





cuTabStops : ARRAY [0..MaxTabs-1] OF CARDINAL; 

(* console rastport attributes *) 

cuMask : BYTE; 

cuFgPen : BYTE; 

cuBgPen : BYTE; 

cuAGLPen : BYTE; 

cuDrawMode : BYTE; (* DrawModeSet *) 

cuAreaPtSz : BYTE; 

cuAreaPtrn : ADDRESS; (* cursor area pattern *) 

cuMinterms : ARRAY [0..7] OF BYTE; (* console minterms *) 

cuFont : ADDRESS; (* TextFontPtr *) 

cuAlgoStyle —: BYTE; 

cuTxFlags : BYTE; 

cuTxHeight 2 CARDINAL; 

cuTxWidth : CARDINAL; 

cuTxBaseline : CARDINAL; 

cuTxSpacing —: CARDINAL; 

(* console MODES and RAW EVENTS switches *) 

cuModes : ARRAY [0..((PMBAWM+7) DIV 8)-1] OF BYTE; 

cuRawEvents : ARRAY [O..((CARDINAL(IEC]assMax)+7) DIV 8)-1] OF BYTE; 
END; 


END ConsoleDevUnit. 
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* Modula-2 Software Construction Set * 
* (ce) 1986 by Leon Frenkel * 
Pereterereeetrrettetetetetriertecereareecrsesescccecececcceccerrrsrcescecess 
* Name: Conversions.DEF Version: Amiga.00.00 * 
* Created: 01/17/87 Updated: 07/31/87 Author: Leon Frenkel * 


* Description: Functions for converting a number to a string and a string * 
* to a number. * 
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DEFINITION MODULE Conversions; 
FROM SYSTEM IMPORT LONGWORD; 
(*$L+*) 


PROCEDURE ConvStringToNumber (string: ARRAY OF CHAR; VAR num: LONGWORD; 
signed: BOOLEAN; base: CARDINAL): BOOLEAN; 

(* Given a string which is supposed to contain an char representation of 
a number convert it to a binary representation of the number. The base of 
the number is specified with the parm “base": for example 10 = decimal, 
16 = hex, 2 = binary. The string passed to the function may contain 
leading spaces which will be ignored. If the parm "signed" is TRUE then 
a "+" or *-" will be accepted and handled aproprietly. If the conversion 
is sucessful the function returns TRUE and parm "num" is valid. Otherwise 
returns FALSE, and "num" is undefined. The string must terminate on a 
character <= * * to be considered valid. 








string - string to parsed for a number 
num - variable to store the binary number into (any 32-bit type) 


signed - 1f TRUE then a signed number is valid, FALSE if unsigned 
base - the base of the number to be parsed 


result - TRUE if sucessful conversion, otherwise FALSE *) 


PROCEDURE ConvNumberToString(VAR string: ARRAY OF CHAR; num: LONGWORD; 
signed: BOOLEAN; base: CARDINAL; 
digits: CARDINAL; padChar: CHAR); 
(* Given a binary representation of a number convert it into a string 
representation. If the string was not large enough to accomadate the 
number, only the part that fit will be stored in the string. 





string - string large enough to accomadate the number and a null-terminator. 
num - number to be converted (any 32-bit type) 

signed - TRUE = high bit represents sign of number, FALSE = unsigned number 
base - base of number such as 2ebinary, 16shex, 10edecimal, etc... 

digits - the generating string should have # of digits 

padChar - char to use for leading 0’s, usually "0 or * * *) 


END Conversions. 


Module Conversions 
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Module Copper 
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Modula-2 Software Construction Set * 
3 (c) 1986 by Leon Frenkel * 
porerevererecoeecererecerrsr(srecocscevoevcewcatcer tect tenttettiercettentonss 
* Name: Copper. OEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 05/08/87 Author: Leon Frenkel * 
* Description: Graphics Copper types/functions. * 
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DEFINITION MODULE Copper; 


FROM SYSTEM IMPORT ADDRESS, WORD; 
FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 





CONST 
CopperMove = 0; (* pseudo opcode for move #XXXX,dir *) 
CopperWait = 1; (* pseudo opcode for wait y,x *) 
CprhxtBur = 2; (* continue processing with next buffer *) 
CprNtLof = 8000H; (* copper instruction only for short frames *) 
CprNtSht = 4000H; (* copper instruction only for long frames *) 
TYPE 


CopListPtr = POINTER TO CopList; 


CopInsPtr = POINTER TO CopIns; 
CopIns = RECORD 
CASE OpCode : INTEGER OF 
| CprNxtBuf : NxtList : CopListPtr; 
| CopperWait: VWaitPos : INTEGER; (* vertical beam wait  *) 
HWaitPos : INTEGER; (* horizontal beam wait *) 
| CopperMove: DestAddr : INTEGER; (* destination adr of move*) 
DestData : INTEGER; (* immediate data to send *) 
END; 
END; 


(* structure of cprlist that points to list that hardware actually executes *) 
cprlistPtr = POINTER TO cprlist; 
eprlist = RECORD 


Next : eprlistPtr; 
start : ADDRESS;  (* start of copper list *) 
MaxCount : INTEGER;  (* number of long instructions *) 
END; 


CopList = RECORD 
Next : CopListPtr; (* next block for this copper list *) 
CopList : CopListPtr; (* system use *) 
ViewPort : ADDRESS;  (* system use ViewPortPtr, circular ref *) 
CopIns : CopInsPtr; (* start of this block *) 
CopPtr : CopinsPtr; (* intermidate ptr *) 
Coplstart : ADDRESS;  (* mrgcop fills this in for Long Frame *) 
CopSstart : ADDRESS;  (* mrgcop fills this in for Short Frame *) 
Count | : INTEGER; (* intermediate counter *) 
MaxCount : INTEGER;  (* max # of copins for this block *) 
byoffset : INTEGER;  (* offset this copper list vertical waits*) 

END; 


UCopListPtr = POINTER TO UCopList; 
UCopList = RECORD 


Next : UCopListPtr; 
FirstCopList : CopListPtr; (* head node of this copper list *) 
CopList : CopListPtr; (* node in use *) 

END; 


copinitPtr = POINTER TO copinit; 
copinit = RECORD 
diagstrt ; ARRAY [0..3] OF CARDINAL; (* copperlist for first bitplane *) 
sprstrup : ARRAY [0. .((2*8*2)+2+(2*2)+2)-1] OF CARDINAL; 
sprstop : ARRAY [0..1] OF CARDINAL; 
PROCEDURE CBump(VAR c: UCopList); 
(* Increment user copper list pointer (bump to next position in list). 


c - UCopList structure *) 
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PROCEDURE CMove(VAR c: UCopList; a: ADDRESS; v: WORD); 
(* Append copper move instruction to user copper list. 


c - UCopList structure 
a - hardware register 
v - 16 bit value to be written *) 


PROCEDURE CWait(VAR c: UCopList; v, h: INTEGER); 
(* Append copper wait instruction to user copper list. 





c - UCopList structure 
v - vertical beam position (relative to top of viewport) 
h - hortzontal beam position *) 


PROCEDURE FreeCopList(VAR coplist: CopList); 
(* Deallacate intermediate copper list. 
coplist - CopList structure *) 
PROCEDURE FreeCprList(VAR cprlist: cprlist); 
(* Deallocate hardware copper list. 
cprlist - cprlist structure *) 


PROCEDURE UCopperListInit(VAR c: UCopList; n: INTEGER): UCopListPtr; 
(* Initialize user copperlist to accept interm 





c - UCopList structure 
nl - number of instruction buffer must hold 


result - an initialized list to accept intermediate copper instructions *) 


END Copper. 


Hate user copper instructions. 


Module Copper 
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Module CopperUtil 
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e Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
peenrrrererrrenrercerrerterreceseonr: srecareonevrerarrtrrrcttirtretiee tered 
* Name: CopperUti1.DEF Version: Amiga.00.00 * 
* Created: 01/21/87 Updated: 01/21/87 Author: Leon Frenkel * 
* Description: Graphics Copper Utility Functions. Implimintations of "Cc" * 
™ macros. Ls 


FCRIII ICI ICI IIIA I III TE AICI IRE RRR EERE ERE RERY 


DEFINITION MODULE CopperUti1; 


FROM SYSTEM IMPORT ADDRESS, WORD; 
FROM Copper IMPORT UCopList, UCopListPtr; 


(*$L+*) 


PROCEDURE CEND(VAR c: UCopList); 
(* Terminate user copper list. 
* 'C’ macro: CEND(c) { CWAIT(c,10000,255); } 


c - UCopList structure *) 


PROCEDURE CINIT(VAR c: UCopList; n: CARDINAL): UCopListPtr; 
(* Initialize user copperlist to accept intermediate user copper instructions. 
*'C? macra: CINIT(c,n) { UCopperListInit(c,n); } 


c - UCopList structure 
n - number of instructions buffer must hold. 


result - an initialized list to accept intermediate copper instructions *) 


PROCEDURE CMOVE(VAR c: UCopList; a: ADDRESS; v: WORD); 
(* Add instruction to move value v to hardware register a. 
* 'C’ macro: CMOVE(c,a,b) { CMove(c,&a,b); CBump(c); } 


c - UCopList structure 
a - hardware register 
v - 16 bit value to be written *) 


PROCEDURE CWAIT(VAR c: UCopList; v, h: INTEGER); 
(* Append copper wait instruction to user copper list. 
*'C? macro: CWAIT(c,a,b) { CWait(c,a,b); CBump(c); } 


c - UCopList structure 


v - vertical beam position (relative to top of viewport) 
h - horizontal beam position *) 


END Copperuti1. 
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Madula-2 Software Construction set 
(c) 1986 by Leon Frenkel 
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* 





* Name: Custom 
* Created: 11/29/86 


SOIT TR I I ROR RR RR RRR RRR ARTEL RARER TE AIR), 


rdware.DEF 


Version: Amiga.00.00 


Updated: 01/15/87 Author: Leon Frenkel 
* Description: Amiga Custom Hardware definitions. 


DEFINITION MODULE CustomHardware; 


FROM SYSTEM IMPORT ADDRESS; 


(*$L4*) 


TYPE 


AudChannelPtr = POINTER TO AudChannel; 


AudChannel = RECORD 








acptr : ADDRESS; 
aclen : CARDINAI 

acper : CARDINAL 
acvol : CARDINAL; 


acdat : CARDINAL; 


END; 


acpad : ARRAY [0. 


(* ptr to start of waveform data *) 
(* length of waveform in words *) 
(* sample period *) 

(* volume *) 

(* sample pair *) 


+1] OF CARDINAL; (* unused *) 


SpriteDefPtr = POINTER TO SpriteDef; 


SpriteDef = RECORD 
pos 
ctl 
data 


END; 


: CARDINAL; 
: CARDINAL; 


a: CARDINAL; 
datab : CARDINAL; 


CustomPtr = POINTER TO Custom; 


Custom = RECORD 
bitddat 


vposr 
vhposr 


: CARDINAL; 
dmaconr : 


dskdatr : 


JoyOdat 


Joyidat : 


clxdat 
adkconr 


potOdat : 
potidat : 


pot inp 


serdatr : 


dskbytr 
intenar 
intregr 
dskpt 
dsklen 
dskdat 
refptr 
vposw 
vhposw 
copcon 
serdat 
serper 
potgo 
joytest 
strequ 
strvb] 
strhor 


bitafwa : 





CARDINAL; 
CARDINAL; 
CARDINAL; 


: CARDINAL; 


: CARDINAL; 
+ CARDINAL; 
: ADDRESS; 
: CARDINAL; 
: CARDINAL; 
: CARDINAL; 
: CARDINAL; 
: CARDINAL; 
: CARDINAL; 
1 CARDINAL; 
: CARDINAL; 
: CARDINAL; 
: CARDINAL; 
: CARDINAL; 
2 CARDINAL; 
: CARDINAL; 
strlong : 
bitcond : 
bitconi : 


bitalwm : 


bitept 
bitbpt 
bitapt 
bitdpt 


CARDINAL; 
BITSET; 
BITSET; 
CARDINAL; 
CARDINAL; 
ADDRESS; 
ADDRESS; 
ADDRESS; 
ADDRESS; 


Module CustomHardware 
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Module CustomHardware 


bitsize : CARDINAL; 

pad2d ARRAY [0..2] OF CARDINAL; 
bltcmod : CARDINAL; 

bitbmod 
bitamod : 
bitdmod 
pad34 
bitcdat 
bitbdat 
bitadat : 
pad3b =: ARRAY [0..3] OF CARDINAL; 
dsksyne : 

copilc 
cop2ic 
copjmpl : CARDINAL; 

copjmp2 : CARDINAL; 

copins : CARDINAL; 

diwstrt : CARDINAL; 

diwstop : CARDINAL; 

ddfstrt : CARDINAL; 

ddfstop : CARDINAL; 

dmacon : BITSET; 

clxcon : CARDINAL; 

intena : BITSET 

intreq : CARDINAL; 

adkcon : CARDINAL; 

aud : ARRAY [0..3] OF AudChanne1; 
bpipt : ARRAY [0..5] OF ADDRESS; 
pad7c =: ARRAY [0..3] OF CARDINAL; 
bplconO : CARDINAL; 

bplcon1 : CARDINAL; 

bplcon2 : CARDINAL; 

pad83 =: CARDINAL; 

bplimod : CARDINAL; 

bp]2mad : CARDINAL; 

pad86 =: ARRAY 
bpldat : ARRAY 
padse =: ARRAY 





ARRAY [0..3] OF CARDINAL; 
CARDINAL; 








OF CARDINAL; 
OF CARDINAL; 
OF CARDINAL; 





sprpt : ARRAY OF AODRESS; 
spr : ARRAY [ OF Spritedet; 
color : ARRAY [0..31] OF CARDINAL; 


END; 

VAR 
(* Ptr initialized to point to address of hardware: OODFFOOOH *) 
custom : CustonPtr; 


END CustomHardware. 
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* Modula-2 Software Construction set . 
* (c) 1986 by Leon Frenkel x 
AANAANAANARARANERRNARRASEARHRARERRESRAEREERURRRERERRARRAARERERNEREEREEREAERE 
* Name: DiskFont.DEF Version: Amiga.00.00 * 
* Created: 11/28/86 Updated: 11/28/86 Author: Leon Frenkel * 
* Description: *diskfont.library* types/functions. . 


JIC SO I TI III I TOI III ORE TTI TI SITAR I TI ADAIR A TA) 


DEFINITION MODULE DiskFont; 


FROM SYSTEM IMPORT ADDRESS; 

FROM Libraries IMPORT LibraryPtr; 

FROM Nodes IMPORT Node; 

FROM Text IMPORT FontFlagsSet, FontStyleSet, TextAttr, TextFont, TextFontPtr; 


CONST 
DiskfontName = “diskfont.library"; 


VAR 
DiskfontBase : LibraryPtr; 


CONST 
MaxFontPath = 256; (* including null terminator *) 


TYPE 
FontContentsPtr = POINTER TO FontContents; 
FontContents = RECORD 
fcFileName : ARRAY [O..MaxFontPath-1] OF CHAR; 


feYSize : CARDINAL; 

feStyle : FontstyleSet; 

fcFlags : FontFlagsSet; 
END; 


CONST 
FCHID = OFOOH; 


TYPE 
FontContentsHeaderPtr = POINTER TO FontContentsHeader; 
FontContentsHeader = RECORD 
fchFileIO : CARDINAL; (* FCHID *) 
fchNumEntries : CARDINAL; 
(* fchFC : ARRAY [0..fchNumEntries-1] OF FontContents*) 


END; 
CONST 
OFHID = OF8OH; 
MaxFontName = 32; (* font name including ".font\o" *) 
TYPE 


(* the following 8 bytes are not actually considered a part of the *) 
(* DiskFontHeader, but immediately preceed it. The NextSegment is *) 
(* supplied by the linker/loader, and the ReturnCode is the code *) 





(* at the beginning of the font in case someone runs it... *) 
(* ULONG dfh_NextSegment actually a BPTR wy 
(* ULONG dfh_ReturnCode: MOVEQ 40,00 : RTS = 
(* here then is the official start of the OiskFontHeader... *) 


OiskFontHeaderPtr = POINTER TO DiskFontHeader; 
DiskFontHeader = RECORD 
d?hoF Node; (* node to link disk fonts *) 
dPhFileIO : CARDINAL; (* DFHID *) 
dfhRevision : CARDINAL; (* font revision *) 
dfhSegaent (* segment address when loaded *) 








dfhName ARRAY [O..MaxFontName-1] OF CHAR; (* name *) 
dPhtF : TextFont; (* loaded TextFont structure *) 
END; 


AvailFontType = (AFMemory, 

AFDIsk, 

AF2, AF3, AF4, AFS, AF6, AF7, AFB, 

AF9, AF10, AF11, AF12, AF13, AF14, AF15); 
AvailFontTypeSet = SET OF AvailFontType; 
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Module DiskFont 


AvailFontPtr = POINTER TO AvailFont; 
AvailFont = RECORD 
afType : AvailFontTypeSet; (* Memory or Disk *) 
afattr : Textattr; (* text attributes for font *) 
END; 


AvailFontsHeaderPtr = POINTER TO AvailFontsHeader; 
AvailFontsHeader = RECORD 
afhNumEntries : CARDINAL; (* # of AvailFonts elements *) 
(* afhAF : ARRAY [O..afhNumEntries-1] OF AvailFont — *) 
END; 


PROCEDURE AvailFonts(buffer: ADDRESS; bufBytes: LONGCARD; 
types: AvailFontTypeSet): LONGCARD; 
(* Build an array of all fonts in memory / on disk. 
buffer - memory to be filled with struct AvailFontsHeader 
bufaytes - number of bytes in buffer 
types - Specify memory or disk fonts or both. 
result - if non-zero indicates number of bytes needed in addition to those 
supplied to create structure *) 
PROCEDURE OpenDiskFont(VAR textAttr: TextAttr): TextFontPtr; 
(* Load and get a pointer to a disk font. 
textAttr - a Textattr structure that describes the text font attributes 
result - a pointer to a TextFont structure *) 


END DiskFont. 
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- Modula-2 Software Construction Set * 
® (c) 1986 by Leon Frenkel . 
peeetterertittitisttrttrtirttrtieetccectettectettetietettrtttttettetrstattads 
* Name: DiskResource.DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 05/07/87 Author: Leon Frenkel x 
* Description: Amiga Disk resource. * 


FUCA RR RARE REA SA ASE), 
y) 


DEFINITION MODULE DiskResource; 


FROM SYSTEM IMPORT BYTE; 

FROM Interrupts IMPORT Interrupt; 

FROM Libraries IMPORT Library, LibraryPtr, LibBase, LibVectSize; 
FROM Lists IMPORT List; 

FROM Ports IMPORT Message; 


CONST 
DiskName = "disk.resource"; 


TYPE 

(* Resource structures *) 

DiscResourceUnitPtr = POINTER TO DiscResourceUnit; 

DiscResourceUnit = RECORD 
druMessage : Message; 
druDiscBlock : Interrupt; 
druDiscSyne : Interrup 
druIndex  : Interrupt; 

END; 





(* drFlags entries *) 
DiscResourceFlags = (DRAllocO, (* unit zero 1s allocated *) 
ORAlloc1, (* unit one 1s allocated *) 
DRATIoc2, (* unit two is allocated *) 
ORAlloc3, (* unit three 1s allocated *) 
ORF4, 
ORFS, 
ORFG, 
DRActive); (* is the disk currently busy? *) 
DiscResourceFlagsSet = SET OF DiscResourceFlags; 


DiscResourcePtr = POINTER TO OiscResource; 
DiscResource » RECORD 


drlibrary : Library; 
drCurrent : DiscResourceUnitPtr; 
drFlags : DiscResourceF lagsSet; 
drpad : BYTE; 
drSysLib : LibraryPtr; 
drCiaResource : LibraryPtr; 
drunitID 2 ARRAY [0..3] OF LONGCARD; 
drWaiting : List; 
drOiscBlock =: Interrupt; 
drDiscSync —: Interrupt; 
drIndex : Interrupt; 

END; 


CONST 
(* Hardware Magic *) 
OskOMAGFf = 4000H; (* idle command for dsklen register *) 


ORAllocUnit = LibBase - O*LibVectSize; 
ORFreeUnit = LibBase - 1*LibVectSize; 
ORGetUnit = LibBase - 2*LibVectSize; 
ORGiveUnit «= LibBase - 3*LibVectSize; 
ORGetUnitID = LibBase - 4*LibVectSize; 


DRLastComm = DRGiveUnit; (* probably an error?? maybe DRGetUnitI0 *) 
(* drive types *) 

ORTAmiga = 000000000H; 

ORT3742202S = 055555555H; 

ORTEmpty = OFFFFFFFFH; 


END DiskResource. 


32-51 


Module Display 


(SER RRR RRR RR REAR RRR ASI REREARRE RARE RE RAAS ASIII ESAS IS ERERSTI IES 


* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
Wepgepreunensenemnrreerrcar rc swtctrrsnvertrtcrttttrrret Cri Loo oor 
* Name: Display.DEF Version: Aniga.00.00 . 
* Created: 11/30/86 Updated: 05/07/87 Author: Leon Frenkel * 
* Description: Amiga display control registers definitions. * 
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DEFINITION MODULE Display; 


CONST 
(* bplconO register *) 
Mode640 = 8000H; 


PIncntMsk = OOO7H; (* how many bit planes? O =non 1-> = 1->6, 7 = reserved") 
Pincntshft = 12;  (* bits to shift for bplconO *) 

PF2Pri = OO4OH; (* bplcon2 bit *) 

Colordn = O200H; (* disable color burst *) 

DbIPF = 0400H; 

HoldNModify = O800H; 

Interlace = O004H; (* interlace made for 400 *) 


(* bplcont regist 
PFAFineScrol1 = QOOFH; 
PFBFineScrolishift = 4; 

PFFineScrollMask = QOOFH; 





(* display window start and stop *) 

DIWHar1zPos = OO7FH; (* horizontal start/stop *) 
OIWVrtclPos = OLFFH; (* vertical start/stop *) 
DIWVrtclPosShift = 7; 


(* Data fetch start/stop horizontal position *) 
DFtchMask = OOFFH; 


(* vposr bits *) 
VPosrLOF = 8000H; 


END Display. 
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* Name: DMAHardware .DEF 


* Created: 11/29/86 Updated: 11/29/86 
* Description: Amiga DMA control definitions. 
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DEFINITION MODULE OMAHardware; 


($L+*) 


CONST 


(* write definitions for dmaconw *) 


DMASetCIr = 15 
DMAAudO = 
OMAAUd. == 
DMAAUud2 = 
DMAAUd3 = 
OMADisk = 
OMASprite = 
DMABIitter = 
OMACopper = 
OMARaster = 
OMAMaster = 
OMABIitHog = 
OMAAI] = 
OMAAUdio == 








sk *) 


(* read definitions for dmaconr *) 
(* bits 0-8 correspond to dmaconw definitions *) 


DMABItOone = 14; 
OMABItNZero = 13; 


PROCEDURE OnDisplay; 
(* Implementation of * 
* #define ON_DISPLAY 
i) 


PROCEDURE Offisplay; 

(* Implementation of °c” 
* #define OFF_DISPLAY 
ED} 


PROCEDURE OnSprite; 

(* Implementation of ’C’ 
* #define ON_SPRITE 

)) 


PROCEDURE OffSprite; 











cra: 
custom.dmacon 


cro: 
custom.dmacon 


cra: 
custom.dmacon 


(* Implementation of ’c’ macro: 


* #define OFF_SPRITE 
*) 


END OMAHardware. 


custom. dmacon 


Version: Amiga.00.00 
Author: Leon Frenkel 


BITSET|DMAF_RASTER; 


BITCLR|OMAF_RASTER; 


BITSET|OMAF_SPRITE; 


BITCLR|DMAF_SPRITE; 


JESU IESE IORI IORI IORI II ESOC OTITIS IIOR IIR IA 


* 


Module DMAHardware 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
pepoperronenrennrrenrenrree st ecstororccresr: cotter rc itt ret: trio coi ooo 
* Name: Drawing.DEF Version: Amiga.00.00 . 
* Created: 11/20/86 Updated: 05/07/87 Author: Leon Frenkel * 
* Description: Graphics Drawing functions. * 


FRO ICICI TI II I TOTTI SR III TO IORI ITI DTT I II TIT III IIIT IIIT IT ITT ITI), 
DEFINITION MODULE Drawing; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 
FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Rasters IMPORT RastPort, DrawModeSet; 


PROCEDURE BndryOff(VAR rp: RastPort); 
(* Turn boundary mode off. This procedure is a ’C’ macro equivilant: 
* #define BNORYOFF(w) {(w)->Flags &= “AREAQUTLINE;} 


rp - RastPort *) 
PROCEDURE ClearEOL(VAR rp: RastPort); 
(* Clear from current position to end of line. 
rp - RastPort structure *) 
PROCEDURE ClearScreen(VAR rp: RastPort); 
(* Clear from current position to end of RastPort. 


rp - RastPort structure *) 


PROCEOURE Draw(VAR rp: RastPort; x, y: INTEGER); 
(* Draw a line between the current pen position and the new x,y position. 


rp - RastPort structure 
x = x component of end point of line 
y - y component of end point of line *) 


PROCEDURE DrawCircle(VAR rp: RastPort; cx, cy, radius: INTEGER); 

(* Draw a circle centered at cx,cy with a specified radius. This function 
* corresponds to the ’C’ language macro. The ’C’ macro is: 

* #define OrawCircle(rp,cx,cy,r) ODrawE1lipse(rp,cx,cy,r,r); 





rp - RastPort structure 

cx - x coordinate of the centerpoint of the circle 
cy - y coordinate of the centerpoint of the circle 
radius - radius of the circle *) 


PROCEDURE DrawEllipse(VAR rp: RastPort; cx, cy, a, b: INTEGER); 
(* Draw an ellipse centered at cx,cy with vertical and horizontal radii 
of a,b respectively. 


rp - RastPort into which the ellipse will be drawn 
cx - x coordinate of the centerpoint of the ellipse 
cy - y coordinate of the centerpoint of the ellipse 
a - the horizontal radius of the ellipse 
b - the vertical radius of the ellipse *) 


PROCEDURE Flood(VAR rp: RastPort; mode: LONGCARD; x, y: INTEGER); 
(* Flood rastport like areafill. 


rp - RastPort structure 

mode - O = Border Fill, 1 = Fill all adjacerent pixels that have the same 
pen number as (x,y) 

x - x component of flood fill starting point 

y - y component of flood fill starting point *) 
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PROCEDURE Move(VAR rp: RastPort; x, y: INTEGER); 
(* Nove graphics pen position. 


rp - RastPort structure 
X - X component of new pen position 
y - y component of new pen position *) 


PROCEDURE PolyDraw(VAR rp: RastPort; count: INTEGER; array: ADDRESS); 
(* Oraw lines from table of (x,y) values. 


rp - RastPort structure 
count - number of points in array (x,y) pairs 
array - pointer to first (x,y) pair *) 


PROCEDURE ReadPixel(VAR rp: RastPort; x, y: INTEGER): INTEGER; 
(* Read the pen number value of the pixel at a specified x,y location 
within a certain RastPort. 


tp - RastPort structure 
x - X component of point 
y - y Component of point 


result - (0..255) number at the position is returned. -1 is returned 
if cannot read that pixel *) 


PROCEOURE RectFil1(VAR rp: RastPort; xmin, ymin, xmax, ymax: INTEGER); 
(* Fill a defined rectangular area with the current drawing pen color, 
outline color, secondary color, and pattern. 


RastPort structure 

- x component of upper left corner 

- y component of upper left corner 

- X component of lower right corner 

- y component of lower right corner *) 





PROCEDURE SetAPen(VAR rp: RastPort; pen: CARDINAL); 
(* Set primary pen. 


rp - RastPort structure 
pen - (0..255) *) 


PROCEDURE SetAfPt(VAR rp: RastPort; p: ADDRESS; n: CARDINAL); 
(* Set area pattern. This procedure corresponds ta the ’C’ macro: 
* #define SetafPt(w,p,n) {(w)->AreaPtrn = p;(w)->AreaPtSz = n;} 


rp - RastPort structure 
p - pointer to area pattern 
n - size of area pattern *) 


PROCEDURE SetBPen(VAR rp: RastPort; pen: CARDINAL); 
(* Set secondary pen. 
rp - pointer to RastPort structure 
pen - (0..255) *) 
PROCEDURE SetOrMd(VAR rp: RastPort; mode: OrawModeSet) ; 
(* Set drawing mode. 


rp - pointer to RastPort structure 
mode - Jami,J .. some combinations may not make much sense *) 





Module Drawing 
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Module Drawing 


PROCEDURE SetOrPt(VAR rp: RastPort; p: BITSET); 


(* Set line pattern. This procedure coreseponds to a °C’ macro: 
* #define SetDrPt(w,p) 


{(0)->LinePtrn = p;(w)->Flags |= FRST_DOT;(w)->1inpatcnt=15;} 


rp - RastPort structure 
p - line pattern *) 


PROCEDURE SetOPen(VAR rp: RastPort; pen: CARDINAL); 
(* Change the area outline pen and turn on outline mode for areafills. 
* This procedure coresponds to the °C’ macro: 


* #define SetOPen(w,c)  {(w)->AOIPen = c;(w)->Flags |= AREAQUTLINE; } 


rp - pointer to RastPort structure 
pen - number between (0..255) *) 


PROCEDURE SetWrMsk(VAR rp: RastPort; m: BYTE); 
(* Set rast port write mask. Coresponds to ’C’ macro: 
* #define SetWrMsk(w {(W)->Mask = m3} 





rp - RastPort structure 
m - mask (any 8-bit type) *) 


PROCEDURE WritePixel(VAR rp: RastPort; x, y: INTEGER): INTEGER; 

(* Change the pen num of one specific pixel in a specified RastPort. 
rp - RastPort structure 
Xx - X component of point to set 
y - y Component of point to set 


result - O if pixel succesfully changed,-1 if (x,y) 1s outside the RastPort*) 


ENO Drawing. 
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* Modula-2 Software Construction Set * 
= (c) 1986 by Leon Frenkel * 
perereetrretttreeetereetrerseetierertscececrervocrecarresrrereeeeceereterees 
* Name: Exec. DEF Version: Amiga.00.00 * 
* Created: 11/19/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: Amiga ROM Kernel Executive. * 


MARANARARAN RETA RE RTSREE SERA ERR TERR EESRAR TEER AERE AE SEARERER AERA ERAR RASA RES) 


DEFINITION MODULE Exec; 
FROM SYSTEM IMPORT ADDRESS; 
CONST 


ExecName = “exec. 1ibrary*; 


PROCEDURE Debug; 
(* Run the system debugger. *) 


PROCEDURE GetCC(): BITSET; 
(* Get condition codes in a 68010 compatible way. 


result - the 68000/68010 condition codes *) 


PROCEDURE RawOoFmt(FormatString: ADDRESS; DataStream: ADDRESS; 
PutChProc: ADDRESS; PutChData: ADDRESS); 
(* Format data into a character stream. Perform "C*-language-like formatting 
of a data stream, output the result a character at a time. 





FormatString - a *C*-language-like nul] terminated format string, 

with ’%’ formating info. 
DataStream - a stream of data that is interpreted according to the format str 
PutChProc - the procedure to call with each character to be output, called: 








PutChProc( Char, PutChData); 
DO-0:8 AZ 
the procedure is called with a null Char at the end of the format 


string. 
PutChData - an address register that passes thru to PutChProc *) 


PROCEOURE SetSR(newSR, mask: BITSET): BITSET; 
(* Get and/or set processor status register. 


newSR - new values for bits specified in the mask, other bits are not effected 
mask - bits to be changed 


result - the entire status register before new bits *) 


PROCEDURE SumkickData; 
(* Compute the checksum for the kickstart delta list. *) 


END Exec. 


Module Exec 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
* Name: ExecBase.DEF Version: Amiga.00.00 * 
* Created: 11/22/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: Exec Library Base. * 


SOIR RRR TR IRE RR IER AIR ETRE TIRE SI AERA EI RRIR BEER SAREE EERIE) 
DEFINITION MODULE ExecBase; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 

FROM Interrupts IMPORT IntVector, SoftIntList; 
FROM Libraries IMPORT Library; 

FROM Lists IMPORT List; 

FROM Tasks IMPORT SignalSet, TrapSet, TaskPtr; 


CONST 
(* ExecBase.AttnFlags *) 
(* Processor and Co-processors *) 





AF6B010 = 0; (* also set for. 68020 *) 

AF68020 = 

AF68B81 = 4; 

TYPE 
ExecBasePtr = POINTER TO ExecBase; 
ExecBase = 
RECORD 

LibNode > Library; 
SoftVer : CARDINAL; (* kickstart release numbre *) 
LowMemChkSum > INTEGER; 
ChkBase : LONGCARD; (* system base pointer complement *) 
ColdCapture : ADDRESS; (* coldstart soft vector *) 
CoolCapture 2 ADDRESS; 
WarmCapture > ADORESS; 
SysStkUpper : ADDRESS; (* system stack base (upper bound) *) 
SysStkLower : ADDRESS; (* top of system stack (lower bound) *) 
MaxLocMem : LONGCARD; 
Debugentry : ADDRESS; 
DebugOata + ADDRESS; 
AlertData : ADDRESS; 
MaxExtMem : ADDRESS; (* top of extended mem or null if none *) 
ChkSum + CARDINAL; 


(* Interrupt related *) 
IntVects : ARRAY [0..15] OF IntVector; 


(* System Variables *) 








ThisTask : TaskPtr; (* pointer to current task *) 
IdleCount : LONGCARD; (* idle counter *) 

OispCount : LONGCARD; (* dispatch counter *) 

Quantum : CARDINAL; (* time slice quantum *) 

Elapsed : CARDINAL; (* current quantum ticks *) 
SysFlags : BITSET; (* misc system flags *) 

TONestCnt : BYTE; (* interrupt disable nesting count *) 
ToNestCnt : BYTE; (* task disable nesting count *) 
AttnFlags : BITSET; (* special attention flags *) 
AttnResched : BITSET; (* rescheduling attention *) 
ResModules : ADDRESS; (* resident module array pointer *) 
TaskTrapCode : ADDRES: 

TaskExceptCode : ADDRESS; 

TaskExitCode : ADDRESS; 

TaskSigAlloc 2 Signalset; 

TaskTrapAl loc : TrapSet; 
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Module ExecBase 
(* System Lists *) 


MeaList > List; 
ResourceList epitses 
DeviceList : List; 
IntrList so List; 
LibList sist; 
PortList : List; 
TaskReady eriists 
Taskwait : List; 
softiInts : ARRAY [0..4] OF SoftintList; 


(* Other Globalis *) 
LastAlert = ARRAY [0..3] OF LONGINT; 


(* these next two varfables are provided to allow 
system developers to have a rough idea of the 
period of two externally controlled signals -- 
the time between vertical blank interrupts and the 
external line rate (which 1s counted by CIA A’s 
"time of day" clock). In general these values 
will be 50 or 60, and may or may not track each 
other. These values replace the obsolete AFB_PAL 
and AFB_50HZ flags. 


* 


saan ee 


* 


VBlankFrequency : BYTE; 
PowerSupplyFrequence : BYTE; 


SemaphoreList : List; 


(* these next two are to be able to kickstart into user ram. 
* KickMemPtr holds a singly linked list of MemLists which 
* will be removed from the memory list via AllocAbs. If 

* all the AllocAbs’s succeeded, then the KickTagPtr will 

* be added to the rom tag list. 





=) 
KickMemPtr : ADDRESS; (* ptr to queue of mem lists *) 
KickTagPtr : ADDRESS; (* ptr to rom tag queue *) 
KickCheckSum : ADDRESS; (* checksum for mem and tags *) 
ExecBaseReserved : ARRAY [0..9] OF BYTE; 
ExecBaseNewReserved : ARRAY [0..19] OF BYTE; 

END; 


END ExecBase. 
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* Modula-2 Software Construction Set * 
* (c) 1987 by Leon Frenkel * 
peennn reer rer erererrer: st pteratcacoot: sevescerrr tnt ttre tt ecertir tices 
* Name: Expansion.DEF Version: Amiga.00.00 * 
* Created: 07/27/87 Updated: 07/27/87 _ Author: Leon Frenkel * 
* Description: Definitions for expansion. library * 


proweetaverrrsrserrrrrtrtte srt ttettietitt i ire L ee eee 
DEFINITION MODULE Expansion; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 
FROM ConfigRegs IMPORT ExpansionRom; 
FROM FileHandler IMPORT DeviceNadePtr; 
FROM Libraries IMPORT LibraryPtr; 
FROM Nodes IMPORT Node; 


CONST 
Expans{onName = "expansion. library*; 


VAR 
ExpansionBase : LibraryPtr; 


CONST 


(* flags for the AddDosNode() call *) 
ADNStartProc = 0; 


(* cdFlags *) 
Coshutup = 0; (* this board has been shut up *) 
COConfigMe = 1; (* this board needs a driver to claim it *) 


TYPE 
ConfigOevPtr = POINTER TO Configdev; 
Configdev = RECORD 








cdNode : Node; 

cdFlags BYTE; 

cdPad : BYTE; 

cdRom : ExpansionRom; (* image of expansion rom area *) 

cdBoardAddr : ADDRESS; (* where in memory the board is *) 

cdBoardSize : ADDRESS; (* size in bytes *) 

cdSlotAddr : CARDINAL; (* which slot number *) 

edSlotSize : CARDINAL; (* number of slots the board takes *) 

cdDriver ADDRESS; (* pointer to node of driver *) 

cdNextCo ConfigdevPtr; (* linked list of drivers to config *) 

cdUnused : ARRAY [0..3] OF LONGCARD; (* for whatever driver whats *) 
END; 


(* this structure is used by GetCurrent@inding() and SetCurrentBinding() *) 
CurrentBindingPtr = POINTER TO CurrentBinding; 
CurrentBinding = RECORD 


cbConfigdev —: ConfigdevPtr; (* first configdev in chain *) 
cbFileName : ADDRESS; (* file name of driver *) 
cbProductString : ADDRESS; (* product # string *) 

cbTooltypes  : POINTER TO ADDRESS; (* tooltypes from disk object *) 


PROCEDURE AddDosNode(bootPri: INTEGER; flags: BITSET; 
deviceNode: DeviceNodePtr): CARDINAL; 
(* Mount a disk to the system. 





bootPri - a BYTE quantity with the boot priority for this disk 
flags - flag bits: (ADNStartProc} starts a handler process immediately 
deviceNode - a legal DOS device nade, properly initialized or NIL 


result - non-zero everything went ok, zero if we ran out of memory *) 


PROCEDURE MakeDosNode(parameterPkt: ADDRESS): DeviceNodePtr; 
(* Construct dos data structure that a disk needs. 


parameterPkt - a longword array containg all the information needed to 
initialize data structures. 
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PROCEDURE ConfigChain(baseAdd 
(* Configure the whole syst 


longword description 

) string with dos handler name 

1 string with exec device name 

2 unit number (for OpenDevice) 

3 flags (for OpenDevice) 

4 # of longwords in rest of enviroment 

5-n file handler environment (see 1ibraries/filehandler.h) 


result - pointer to inited device node or NIL if not enough memory *) 


PROCEDURE AddConfigDev(VAR configdev: ConfigOev); 
(* Add a new Configdev structure to the system. 


configDev - a valid Configdev structure *) 


PROCEDURE AllocBoardMem(slotSpec: INTEGER): INTEGER; 
(* Allocate standard expansion memory. 


slotSpec - the memory size field of the Type byte of an expansion board 


result - the slot number that was allocated, or -1 for error *) 


PROCEDURE AllocConfigdev(): ConfigDevPtr; 
(* Allocate a Configdev structure 


result - either a valid COnfigdev structure or NIL *) 


PROCEDURE AllocExpansionMem(numSlots, slotOffset: INTEGER): INTEGER; 
(* Allocate expansion menory. 


numSlots - the number of slots required 
slot0ffset - an offset from the boundary for startSlot 


startSlot - the slot number that was allocate, or -1 for error *) 


PROCEDURE ConfigBoard(board: ADDRESS; VAR configDev: Configdev): CARDINAL; 
(* Configure a board. 


board - the current address that the expansion board is responding 
configdev - an initialized Configdev structure 


result - non-zero if there was a problem configuring this board *) 





: ADDRESS): CARDINAL; 





baseAddr - the base address to start looking for boards 


result - non-zero if something went wrong *) 


PROCEDURE FindConfigOev(oldConfigdev: ConfigdevPtr; manufacturer: LONGINT; 


product: LONGINT): ConfigdevPtr; 


(* Find a matching Configdev entry. 


oldConfigdev - a valid Configdev struc, or NIL to start from start of list 
manufacturer - the manufacturer code being searched for, -1 to ignore num 
product - the product code being searched for, -1 to ignore product num 


result - next ConfigOev entry that matches or NIL if no more matches *) 


PROCEDURE FreeBoardMem(startSlot, slotSpec: INTEGER); 
(* Allocate standard device expansion memory. 


startSlot - a slot number in expansion space 
slotSpec - the memory size field of the Type byte of an expansion board *) 


Module Expansion 
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Module Expansion 
PROCEDURE FreeConfigDev(VAR configDev: ConfigDev); 
(* Free a ConfigDev structure. 
configdev - a valid Configdev structure *) 
PROCEDURE FreeExpansionMem(startSlot, numSlots: INTEGER); 
(* Free standard device expansion memory. 
startSlot - the slot number that was allocated 


numSlots - the number of slots to be freed *) 


PROCEDURE GetCurrentBinding(VAR currentBinding: CurrentBinding; 
size: CARDINAL): CARDINAL; 
(* Sets static board configuration area. 


currentBinding - variable structure to be filled in 
size - size of the user’s binddriver structure 


result - the true size of a CurrentBinding structure is returned *) 


PROCEDURE ObtainConfigBinding(); 
(* Try to get permission ta bind drivers. *) 


PROCEDURE ReadExpanstonByte(board: ADDRESS; offset: LONGCARD): INTEGER; 
(* Read a byte nybble by nybble. 


board - a pointer to the base of a new style expansion board 
offset - a logical offset from the board base 


result - a byte of data from the expansion board or -1 if error *) 





PROCEDURE ReadExpanstonRom(board: ADDRESS; VAR configDev: Configdev): INTEGER; 
(* Read a boards configuration rom space. 


board - a pointer to the base of a new style expansion board 
configdev - the Configdev structure to be filled in 


result - non-zero if board address does not contain valid expansion board *) 


PROCEDURE ReleaseConfigBinding(); 
(* Allow others to bind to drivers. *) 


PROCEDURE RemConfigDev(VAR configOev: Configdev); 
(* Remove a ConfigOev structure from the system. 
configbev - a valid Configdev structure *) 
PROCEDURE SetCurrentBinding(VAR currentBinding: CurrentBinding; size: CARDINAL); 
(* Sets static board configuration area. 
currentBinding - a CurrentBinding structure 


size - size of the user’s binddriver structure *) 


PROCEDURE WriteExpansionByte(board: ADDRESS; offset: LONGCARD; 
byte: BYTE): INTEGER; 
(* Write a byte nybble by nybble. 
board - pointer to the base of a new style expansion board 
offset - a logical offset from the configdev base 
byte - a byte of data to be written to the expansion board 
result - zero if success, non-zero there was a problem *) 


END Expansion. 
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Module FileHandler 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
ARR RAARRAAAAERAAARAAAAREREERREEAREEREAEAREREAREEEARERAREREREERRSS ERRSSERREEE 
* Name: FileHandler .OEF Version: Amiga.00.00 . 
* Created: 07/27/87 Updated: 07/27/87 Author: Leon Frenkel * 


* Description: Device and file handler specific 


Prtttitiscritiseecseettreticscscectoes Svectciccs 





for AmigaDOS. * 


AERRRERRERARAARER EES RAER) 





DEFINITION MODULE FileHandler; 


FROM SYSTEM IMPORT ADDRESS; 
FROM AmigaQOS IMPORT BPTR, BSTR; 


(* The disk “environment* is a longword array that describes the 
* disk geometry. It is variable sized, with the length at the beginning. 
* Here are the constants for a standard geometry. 
3} 
CONST 
(* these are the offsets into the array *) 











DeTableSize = 0; (* standard value is 11 *) 
DESizeBlock = 1; (* in longwords: standard value is 128 *) 
DESecOrg = 2; (* not used; must be 0 *) 
DENumHeads = = 3; (* # of heads (surfaces). drive specific *) 
DESecsPerBlk = 4; (* not used; must be 1 *) 
DEBIksPerTrack = 5; (* blocks per track. drive specific *) 
DEReservedBIks = 6; (* unavailable blocks at start. usually 2 *) 
DEPrefac = 7; (* not used; must be 0 *) 
DEInterleave = 8; (* usually 0 *) 
DELowcy1 . * starting cylinder, typically 0 *) 
OEUppercyl == x cylinder. drive specific *) 
DENumBuffers = 11; (* starting # of buffers. typically 5 *) 
DEMemBufType = 12; (* type of mem to allocate for buffers. 

: * default 1s 3, hard disk want 0 *) 
TYPE 


(* The file system startup message is linked into a device node’s startup 
* field. It contains a pointer to the above environment, plus the 

* information needed ta do an exec OpenDevice(). 

FileSysStartupMsgPtr = POINTER TO FileSysStartupMsg; 

FileSysStartupMsg = RECORD 


fssmUnit — : LONGCARD; (* exec unit number for device *) 
fssmDevice : BSTR;  (* null term bstring to device name *) 
fssmEnviron : BPTR; — (* ptr to environment table *) 
fssmFlags : LONGCARO; (* flags for OpenDevice() *) 

END; 


* The module *AmigaDOSExt* has a DeviceList structure. 

* The "device list™ can have one of three different things linked onto 
*4t. Dosextens defines the structure for a volume. DLT DIRECTORY 

* is for an assigned directory. The following structure is for 

* a dos “device" (OLT_DEVICE). 

e) 
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DeviceNodePtr = POINTER TO DeviceNode; 
DeviceNode = RECORD 


dnNext 2 BPTR; (* singly linked list *) 
dnType : LONGCARD; (* always O for dos "devices" *) 
dnTask : ADDRESS; (* MsgPortPtr. 


standard dos task field. If this is 
null when the node 1s accessed, 
* a task will be started up 





dnLock BPTR; (* not used for devices -- leave null *) 
dnHandler : BSTR; (* filename to loadseg (if seglist nul1)*) 
dnStackSize : LONGCARD; (* stacksize to use when starting task *) 
dnPriority : LONGINT; (* task priority when starting task *) 
dnStartup : BPTR; (* startup msg: FileSysStartupMsg for disks *) 
dnSeglist : BPTR; (* code to run to start new task 





* if null then dnHandler will be loaded 


dnGlobalVec : BPTR; (* BCPL global vector to use when starting 
* a task. -1 means that dnSegList is not 

* for a bcp] program, so the dos won’t 

* try and construct one. 0 tell the 

* dos that you obey BCPL linkage rules, 

* and that it shoud! construct a global 

* vector for you. 





dnName : BSTR; (* the node name, e.g. ’\3’,’D’,’F’,’3’ *) 
END; 


END FileHandler. 
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* Modula-2 Software Construction Set * 
* 'c) 1986 by Leon Frenkel * 
rrettrtietetrtteetetrertttestsecettareenrecectcetetirectrcertettcercercac ss 


* Name: FileSystem.DEF Version: Amiga.00.00 
* Created: 11/19/; Updated: 02/08/87 Leon Frenkel 
* Description: This module represents file I/O at a level above the 








AmigaDOS module. This module is described in appendix 2 of Programming 
in Madula-2 by N. Wirth. For purposes of efficency this module performs 
it own buffering. This resultst in much faster 1/0 operations. 


RRR RRR RIKI RT RR ERR RE RI RR RRR RIRE RARER ESE REER RR EERRASAR EAR AERS EAE AEE) 


tae 


DEFINITION MODULE FileSystem; 


FROM SYSTEM IMPORT ADDRESS, WORD; 
FROM AmigaDOS IMPORT FileHandle; 


(*SL+*) 


VAR 


(* The size of the buffer to allocate for next file to be opened *) 
BufferSize : LONGCARD; 


TYPE 


Response = (done, (* previous operation completed successfully *) 
notdone, (* previous operation failed *) 


nomemory); (* Lookup() failed because not enough mem for buffer *) 


FilePtr = POINTER TO File; 
File = RECORD 


res : Response; (* set to done if no error *) 
eof : BOOLEAN; — (* TRUE if end of file encountered *) 
err : LONGINT; (* 4f notdone then AmigaDOS error code *) 
handle : FileHandle; (* AmigaDOS file handle for this file *) 
filePos : LONGCARD; © (* current pos of AmigaDOS file ptr *) 
bufferPtr -—: ADDRESS; (* ptr to first byte of buffer *) 
bufferSize : LONGCARD; (* Size of buffer in bytes *) 
bufferBase : LONGCARD; (* actual file pos of first byte of buf*) 
bufferoffset : LONGCARD; (* current offset into buffer *) 
bufferEnd —: LONGCARD; (* end of buffer offset *) 
bufferChanged : BOOLEAN; © (* buffer has been written to *) 

END; 


PROCEDURE Close(VAR f: File); 
(* Close an open file. 


f - File structure *) 
PROCEDURE Delete(filename: ARRAY OF CHAR); 
(* Delete a file of a specified name. 
filename - name of file to be deleted *) 
PROCEDURE Lookup(VAR f: File; filename: ARRAY OF CHAR; new: BOOLEAN); 
(* Open an old file or a new file. 
f - File structure 


filename - name of file to open 
new - if FALSE then open an existing file. if TRUE open a new file *) 


PROCEDURE SetPos(VAR f: File; pas: LONGCARD); 
(* Move file ptr to a new position. 


f - File structure 
pos - new file ptr position *) 


Module FileSystem 
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PROCEOURE GetPos(VAR f: File; VAR pos: LONGCARD); 
(* Return the current file ptr position. 


f - File structure 

pos - variable into which the current file ptr position is to be stored *) 
PROCEDURE Length(VAR f: File; VAR length: LONGCARD); 
(* Return the length of a file. 

f - File structure 


length - variable into which the length of the file is to be stored *) 


PROCEDURE ReadWord(VAR f: File; VAR WORD) ; 
(* Read a word(16-bits) of data from a file. 





f - File structure 
w - variable into which the data is to be stored *) 


PROCEDURE WriteWord(VAR f: File; w: WORD); 
(* Weite a word(16-bits) of data to a file. 
f - File structure 
w - a word value to be written *) 
PROCEDURE ReadChar(VAR f: File; VAR ch: CHAR); 
(* Read a char(8-bits) of data froma file. 
f - File structure 
ch - variable into which the data is to be stored *) 
PROCEDURE WriteChar(VAR f: File; ch: CHAR); 
(* Weite a char(8-bits) of data to a file. 


f - File structure 
ch - a char value to be written *) 


END Filesystem. 
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Module GamePortDevice 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
Sere tetteret tt eeeteeettrtattcer fra sesate nt veer gant aTr ret eet cer teeaeenns 
* Name: GamePortDevice.DEF Version: Amiga.00.00 * 
* Created: 11/26/86 Updated: 12/30/86 Author: Leon Frenkel . 
* Description: "gameport.device* types. * 


MARANAAREANRERSAERAAEERNER EDN ERANIR RENEE EESRRESEREES SEREAERERSEAESE ASAE HEH) 
DEFINITION MODULE GamePortDevice; 
FROM I0Devices IMPORT CmdNonStd; 


CONST 
(* GamePort commands *) 





GPDReadEvent = CmdNonStd + 0; 
GPDASKCType = CadNonStd + 1; 
GPOSetCType = CmdNonStd + 2; 
GPDAskTrigger = CmdNonStd + 3; 
GPOSetTrigger = CmdNonStd + 4; 





TYPE 
(* GamePort structures *) 


(* gptkeys *) 
GPTKeys = (GPTOownKeys, 
GPTUpKeys, 
GPT2, GPT3, GPT4, GPT5, GPT6, GPT7, GPT8, GPT9, 
GPT10, GPT11, GPT12, GPT13, GPT14, GPT15); 
GPTKeysSet = SET OF GPTKeys; 


GamePortTriggerPtr = POINTER TO GamePortTrigger; 
GamePortTrigger = RECORD 
gptkeys —: GPTKeysSet; (* key trnsition triggers *) 
gptTimeout : CARDINAL; (* time trigger (vblank units) *) 
gptXDelta : CARDINAL; (* X distance trigger *) 
gptYDelta : CARDINAL; (* Y distance trigger *) 
END; 


CONST 
(* Controller Types *) 
GPCTA1 located = -1; (* allocate by another user *) 
GPCTNoController = 0; 


GPCTMouse =1; 
GPCTRelJoystick = 2; 
GPCTAbsJoystick = 3; 


(* Errors *) 
GPDErrSetCType = 1; (* this controller not valid at this time *) 


END GamePortDevice. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
popeemenerercerrcererrcerccrcsrtcecrcevseccsreetttrtrr rer toiirer coor acoso 
* Name: Gels. DEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 05/09/87 Author: Leon Frenkel * 
* Description: Graphics Elements Animation types/functions. * 


perovecnc ouounnernverrer re rertret tistects el Citec lero fre ease ete 


DEFINITION MODULE Gels; 


FROM SYSTEM IMPORT BYTE, ADDRESS; 

FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Rasters IMPORT RastPort; 

FROM Views IMPORT ViewPort; 


TYPE 
VSpriteFlags = (* User-set VSprite flags *) 

(Vsprite, (* set 1f VSprite, clear if Bob *) 
SaveBack, (* set if background is to be saved/restored *) 
Overlay, (* set to mask image of Bob onto background *) 
MustOraw, (* set if VSprite absolutely must be drawn *) 
VSF4, (* Unmapped user bits 4..7 *) 
VSF5, 


(* System-set VSprite flags *) 
BackSaved, (* this Bob’s background has been saved *) 
BobUpdate, (* temporary flag, useless to outside world *) 
GelGone,  (* set if gel is completely clipped (offscreen) *) 
VSOverflow, (* VSprite overflow (if MustOraw set we draw!) *) 
VSF12, (* Unmapped system bits 12..15 *) 
VSF13, 
VSF14 
VSF15); 
VSpriteFlagsSet = SET OF VSpriteFlags; 





CONST 
(* Mask of all user settable VSprite-flags * 
SUserFlags = VSpriteFlagsSet (Vsprite. .VSF7}; 





TYPE 
BobFlags = (* these are the user flag bits *) 

(SaveBob, (* set to not erase Bob *) 
BobIsComp, (* set to identify Bob as AnimComp *) 
8F2, (* Unmapped bob user flags 2..7 *) 
8F3, 
BF4, 
BFS, 
8F6, 
8F7, 
(* these are the system flag bits *) 
Byaiting, (* set while Bob 1s waiting on ‘after’ *) 
80rawn, (* set when Bob 1s drawn this DrawG pass *) 
BobsAway, (* set to initiate removal of Bob *) 
BobNix, (* set when Bob 1s completely removed *) 
SavePreserve, (* for back-restore during double-buffer *) 
gutstep, (* for double-clearing if double-buffer *) 
BF14, (* Unmapped system bob flags 14..15 *) 
8F15); 


BobFlagsSet = SET OF BobFlags; 


CONST 
(* Mask of all user settable Bob-flags *) 
BUserFlags = BobFlagsSet (SaveBob. .BF7}; 


(* defines for the animation procedures *) 
AnFracSize = 6; 
AnimHalf = 0020H; 


(* AnimComp.Flags = RingTrigger *) 
RingTrigger = {0}; (* BITSET definition *) 


TYPE 
(* UserStuff definitions *) 
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(* Store pointers pointer to user extension structure. *) 
VUserStuff = ADDRESS; (* VSprite user stuff *) 
BUserStuff = ADDRESS; (* Bob user stuff *) 

AUserStuff = ADDRESS; (* AnimOb user stuff *) 


(* Forward pointers definitions *) 
VSpritePtr = POINTER TO VSprite; 
BobPtr = POINTER TO Bob; 
AnimObPtr = POINTER TO AnimOb; 
AnimCompPtr = POINTER TO AnimComp; 
DBufPacketPtr = POINTER TO DBufPacket; 
GelsInfoPtr = POINTER TO GelsInfo; 


(**** Gel Structures ****) 

VSprite = RECORD 
(* GEL linked list forward/backword ptrs sorted by y,x value *) 
NextVSprite : VSpritePtr; 
PrevVSprite : VSpritePtr; 


(* GEL draw 11st constructed in the order the Bobs are actually 
* drawn, then list is copied to clear list must be here in 

* VSprite for system boundary detection. 

=) 

OrawPath ©: VSpritePtr; (* pointer of overlay drawing *) 
ClearPath : VSpritePtr; (* pointer for overlay drawing *) 


(* The VSprite positions are defined in (y,x) order to make 
* sorting easier, since (y,x) as a long integer 


i) 
oldy : INTEGER;  (* previous position *) 
O1dx : INTEGER; 


(* COMMON VARIABLES *) 
Flags : VSpriteFlagsSet; (* VSprite flags *) 


(* USER VARIABLES *) 
Y : INTEGER; (* screen position *) 


x : INTEGER; 

Height : INTEGER; 

width : INTEGER; (* number of words per row of image data *) 
Depth : INTEGER; (* number of planes of data *) 

MeMask : BITSET; (* which types can collide with this Vsprite *) 
HitMask ©: BITSET; (* which types this VSprite can colide with *) 


ImageData : ADDRESS; (* pointer to VSprite image *) 


(* BorderLine is the one-dimensional logical OR of all the 
* VSprite bits, used for fast collision detection of edge 
5) 


BorderLine : ADDRESS; (* logical OR of all VSprite bits *) 


CollMask ©: ADDRESS; (* similar to above except this is a matrix *) 
(* Pointer to this VSprite’s color definitions (not used by Bobs) *) 
SprColors : ADDRESS; 

VsBob : BobPtr; (* points home if this VSprite is part of a Bob *) 


(* planePick flag: set bit selects a plane from image, clear bit selects 

* use of shadow mask for that plane 

* onoff flag: if using shadow mask to fill plane, this bit (corresponding 
* to bit in planePick) describes whether to fill with 0’s or 1's 

* There are two uses for these flags: 

* - if this is the VSprite of a Bob, these flags describe how the Bob 
* is to be drawn into memory 

* - if this is a simple VSprite and the user intends on setting the 

* MustOraw flag of the VSprite, these flags must be set too to describe 
* which color registers the user wants for the image 

PlanePick : BYTE; 

Planeonoff : BYTE; 


VUserExt : WWserStu’f; (* User definable: see note above *) 
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(* Blitter-dbjects *) 
Bob = RECORD 
(* COMMON VARIABLES *) 
Flags : BobFlagsSet; (* general purpose flags (see above) *) 


(* USER VARIABLES *) 
SaveBuffer : ADDRESS; (* pointer to the buffer for background save *) 


(* used by Bob for *cookie-cutting" and multi-plane masking *) 
ImageShadow : ADDRESS; 


(* pointer to B0Bs for sequenced drawing of Bobs for current 
* overlaying of multiple component anaimations 
1) 


Before : BobPtr; (* draw this Bob before Bob pointed to by before *) 
After : BobPtr; (* draw this Bob after Bob pointed to by after*) 


BobVSprite : VSpritePtr; (* this Bob’s VSprite definition *) 


BobComp : AnimCompPtr; (* pointer to this Bob’s AnimComp def *) 
oBuffer : DBufPacketPtr; (* pointer to this Bob’s dBuf packet *) 
BUserExt : BUserStuff;  (* Bob user extension *) 

END; 


AnimComp = RECORD 
(* COMMON VARIABLES *) 
Flags : BITSET; (* AnimComp flags for system & user *) 


(* timer defines how long to keep this component active: 
* 4f set non-zero, timer decrements to zero then switches to nextSeq 
* 4f set to zero, AnimComp never switches 


Timer : INTEGER; 


(* USER VARIABLES *) 
(* initial value for timer when the AnimComp is activated by the system *) 


TimeSet : INTEGER; 

(* pointer to next and previous components of animation object *) 
NextComp : AnimCompPtr; 

PrevComp : AnimCompPtr; 

(* pointer to component definition of next image in sequence *) 
NextSeq : AnimCompPtr; 

PrevSeq 2 AnimCompPtr; 


AnimCRoutine : ADDRESS; (* special animation procedure *) 





YTrans : INTEGER; (* initial y translation, if component*) 
XTrans INTEGER; (* initial x translation, if component*) 
Headob 2 AnimobPtr; 

‘AnimBob : BobPtr; 

0; 


AnimOb = RECORD 
(* SYSTEM VARIABLES *) 
NextOb > AnimObPtr; 
PrevOb > AnimObPtr; 





(* number of calls to Animate this AnimOb has endured *) 


Clock : LONGINT; 
AndldyY : INTEGER; (* old y,x coordinates *) 
Andidx > INTEGER; 


(* COMMON VARIABLES *) 
AnY > INTEGER; (* y,x coordinates of the Anim0b *) 
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‘AnX : INTEGER; 


(* USER VARIABLES *) 


YVel > INTEGER; (* velocities of this object *) 
xVe1 : INTEGER; 

YAccel + INTEGER; (* accelerations of this object *) 
XAccel : INTEGER; 


RingYTrans =: INTEGER; 
RingXTrans : INTEGER; 


* ring translation values *) 


AnimORoutine : ADDRESS; (* special animation procedure *) 
HeadComp : AnimCompPtr; (* pointer to first component *) 
AUserExt : AUserStuff; (* AnimOb user extension *) 

END; 


(* dBufPacket defines the values needed to be saved across buffer to buffer 
* when in double-buffer mode 


OBufPacket = RECORD 





Bury : INTEGER;  (* save the other buffers screen coordinates *) 
Butx INTEGER; 
BufPath : VSpritePtr; (* carry the draw path over the gap *) 


(* these pointers must be filled in by the user *) 
(* pointer to other buffer’s background save buffer *) 
BufBuffer : ADDRESS; . 

END; 


(* a structure to contain the 16 collision procedure addresses *) 
collTablePtr = POINTER TO collTable; 
collTable = RECORD 
collPtrs : ARRAY [0..15] OF ADDRESS; 
END; 


GelsInfo = RECORD 
(* flag of which sprites to reserve from vsprite system *) 


sprRsrvd : BYTE; 

Flags : BYTE; (* system use *) 

gelHead : VSpritePtr; (* dummy vSprites for list management *) 
gelTail : VSpritePtr; 

(* pointer to array of 8 WORDS for sprite available lines *) 
nextLine : ADDRESS; 

(* pointer to array of 8 pointers for color-last-assigned to vSprites *) 
lastColor + ADDRESS; 

collHandler =: collTablePtr; (*addresses of collision routines*) 
leftmost : INTEGER; 

rightmost : INTEGER; 

topmost : INTEGER; 

bottommost : INTEGER; 


firstBlissObj : ADDRESS; (* system use only *) 
JastBlissObj : ADDRESS; 
END; 


CONST 
B2Norm = 0; 
B2Swap = 
B2Bobber = 





* These bit descriptors are used by the GEL collide routines. 
These bits are set in the hitMask and meMask variables of 
a GEL to describe whether or not these types of collisions 
can affect the GEL. BNORY_HIT is described further below; 
this bit is permanently assigned as the boundary-hit flag. 
The other bit GEL_HIT is meant only as a default to cover 
any GEL hitting any other; the user may redefine this bit. 


ee aes 


BorderHit = 0; 


TYPE 
(* Boundary Collision Mask *) 
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Module Gels 
BoundaryColMask = SET OF [0..31]; 


CONST 

(* These bit descriptors are used by the GEL boundry hit routines. 
When the user’s boundry-hit routine is called (via the argument 
set by a call to SetCollision) the first argument passed to 

* the user’s routine is the address of the GEL involved in the 

* boundry-hit, and the second argument has the appropriate bit(s) 

* set to describe which boundry was surpassed 

* VAR mask : BoundaryColMask; 

* IF TopHit IN mask THEN ... 

* ELSIF BottomHit IN mask THEN ... 


TopHit = 0; 
BottomHit = 1; 
LeftHit = 2; 
Righthit = 3; 

TYPE 


(* User Procedure Called by Gel Software *) 
BoundaryColProc = PROCEDURE(BoundaryColMask, VAR VSprite); 
GelColPrac = PROCEOURE(VAR VSprite, VAR VSprite); 


(* User Procedures Called by Animation Software *) 
AnimCompProc = PROCEDURE(VAR AnimCamp); 
AnimObProc = PROCEDURE(VAR AnimQb); 





PROCEOURE AddAnimOb(VAR anOb: AnimOb; VAR anKey: AnimObPtr; VAR rp: RastPort); 
(* Add an AnimOb to the linked list of AnimObs. 


anOb - an AnimOb structure to be added to the list 
ankey - address of a pointer to the first AnimOb in the list 


(ankey = NIL if there are no AnimObs in the list so far) 
rp - a valid RastPort *) 


PROCEDURE AddBob(VAR bob: Bob; VAR rp: RastPort); 
(* Adds a Bob to current gel list. 
Bob - a Bob structure to be added to the gel list 
rp - a RastPort structure *) 
PROCEDURE AddVSprite(VAR vs: VSprite; VAR rp: RastPort); 
(* Add a VSprite to the current gel list. 
vs - the VSprite structure to be addded to the gel list 
rp - a RastPort structure *) 
PROCEDURE Animate(VAR anKey: AnimObPtr; VAR rp: RastPort); 
(* Processes every AnimOb in the current animation list. 
ankey - address of the variable that points to the head Anim0b 
rp - the RastPort structure *) 
PROCEOURE DoCollision(VAR rp: RastPort); 
(* Test every gel in gel list for collisions. 
rp - a RastPort *) 
PROCEDURE DrawGList(VAR rp: RastPort; VAR vp: ViewPort); 
(* Process the gel list, queueing VSPrites, drawing Bobs. 
rp - the RastPort where Bobs will be drawn 
vp - the ViewPort for which VSprites will be created *) 
PROCEDURE FreeGBuffers(VAR anOb: AnimOb; VAR rp: RastPort; db: BOOLEAN); 
(* Deallocate memory obtained by GetGBuffers. 
anOb - the AnimOb structure 
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rp - the current RastPort 
db - double-buffer indicator (set TRUE for double-buffering) *) 


PROCEDURE GetGBuffers(VAR anOb: AnimOb; VAR rp: RastPort; db: BOOLEAN): BOOLEAN; 
(* Attempt to allocate ALL buffers of an entire AnimOb. 

andb - the Animdb structure 

rp - the current RastPort 

db - double-buffer indicator (set TRUE for double-buffering) 

result - TRUE if the memory allocations were all successfull, else FALSE *) 
PROCEDURE InitAnimation(VAR animKey: AnimObPtr); 
(* Procedure implementation of a °C’ macro: 
* #define InitAnimate(animkey) {*(animKey) = NULL;} 

animkey - address of the variable that points to the head Animdb *) 
PROCEDURE InitGels(VAR head, tail: VSprite; VAR GInfa: Gelsinfo); 
(* Initialize a gel list; must be called before using gels. 

head - the VSprite structure to be usedw as the gel list head 


tail - the VSprite structure to be usedw as the gel list tail 
GInfo - the GelsInfo structure to be initialized *) 


PROCEDURE InitGMasks(VAR anOb: AnimOb); 
(* Initialize all of the masks of an AnimOb. 


andb - the AnimOb structure *) 


PROCEDURE InitMasks(VAR vs: VSprite); 
(* Initialize the BorderList and CollMask masks of a VSprite. 


vs - the VSPrite structure *) 

PROCEDURE RemBob(VAR bob: Bob); 

(* Procedure implementation of a ’C’ macro: 

* #define RemBob(b) {(b)->Flags |= BOBSAWAY;} 
bob - Bob structure *) 


PROCEDURE RemIBob(VAR bob: Bob; VAR rp: RastPort; VAR vp: ViewPort); 
(* Immediately remove a Bob from the gel list and the RastPort. 


bob - the Bob to be removed 
rp - the RastPort if the Bob is to be erased 
vp - the ViewPort for beam-synchornizing *) 


PROCEDURE RemVSprite(VAR vs: VSprite); 
(* Remove a VSprite from the current gel list. 


vs - the VSprite structure to be removed from the gel list *) 


PROCEDURE SetCollision(num: LONGCARD; routine: ADDRESS; VAR GInfo: GelsInfo); 
(* Set a pointer to a use collision routine. 


num - collision vector number 
routine - pointer to the user’s collision routine 
GInfo - a GelsInfo structure *) 


PROCEOURE SortGList(VAR rp: RastPort); 
(* Sort the current gel list, ordering it y,x coordinates. 


rp - the RastPort structure containing the GelsInfo *) 


END Gels. 


Module Gels 
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Module Graphics ; 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
enenenrenennrereerencanr: st sctenrrsereoi:peratec rer crt rortctetocserttect ca 
* Name: Graphics.DEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 12/30/86 Author: Leon Frenkel * 
* Description: Graphics types/functions. * 


FOES III III III III IIT ITI ITI III II IIIT IIA I IIIA, 
DEFINITION MODULE Graphics; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 
FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 


CONST 
GraphicsName = “graphics.1ibrary"; 


TYPE 

RectanglePtr = POINTER TO Rectangle; 

Rectangle = RECORD 
Mink : 
Miny : 
MaxX : INTEGER; 
MaxY : INTEGER; 

END; 





PointPtr = POINTER TO Point; 
Point = RECORD 
Pa 






PlanePtr = ADORESS; 


BitMapPtr = POINTER TO B1tMap; 
BitMap = RECORD 
BytesPerRow : CARDINAL; 


Rows : CARDINAL; 

Flags : BYTE; 

Depth : BYTE; 

pad : CARDINAL; 

Planes : ARRAY [0..7] OF PlanePtr; 
END; 


PROCEDURE InitBitMap(VAR bm: BitMap; depth, width, height: INTEGER); 
(* Initialize bit map structure with input values. 


bm - a BitMap structure 
depth - number of bitplanes that this bitmap will have 


width - number of bits (columns) wide for this BitMap 
height - number of bits (rows) tall for this BitMap *) 


END Graphics. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
perronreceureserrernrerricefciveetercattetrtettrtr] titi io orca 
* Name: GraphicsBase.DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 05/07/87 Author: Leon Frenkel * 
* Description: Graphics Library Base definitions. * 


TES OEIC ICE SIRI TERI IEIOIOIOR EIOOEI TORS II III TIT RSI RISE RI RR EIR E), 


DEFINITION MODULE GraphicsBase; 


FROM SYSTEM IMPORT ADORESS, BYTE; 

FROM Blit IMPORT bltnodeptr; 

FROM Copper IMPORT copinitPtr; 

FROM Interrupts IMPORT Interrupt; 

FROM Libraries IMPORT Library; 

FROM Lists IMPORT List; 

FROM Semaphores IMPORT SignalSemaphorePtr; 
FROM Tasks IMPORT TaskPtr; 

FROM Text IMPORT TextFontPtr; 

FROM Views IMPORT ViewPtr; 


TYPE 
GfxBasePtr = POINTER TO GfxBase; 
GfxBase = RECORD 





LibNode : Library; 
ActiView : ViewPtr; 
copinit : copinitPtr; (* ptr to copper start up list *) 
cia : ADDRESS;  (* for 8520 resource use *) 
blitter : ADDRESS; (* for future blitter resource use*) 
LOFlist : ADDRESS; 
SHFlist : ADDRESS; 
bithd : bitnodeptr; 
bittl : bitnodept 
bsbithd : bitnodept 
bsbitt) : bitnodeptr; 
vbsrv : Interrupt; 
timsrv : Interrupt; 
bitsrv : Interrupt; 
TextFonts : List; 
DefaultFont : TextFontPtr; 
Modes : CARDINAL; (* copy of current bplconO *) 
VBlank : BYTE; 
Debug : BYTE; 
BeamSync : INTEGER; 
(* inited to 0, it is ored into each bplconO for diplay *) 
systembpiconO : INTEGER; 
SpriteReserved : BYTE; 
bytereserved : BYTE; 
(* candidates for removal *) 
Flags + CARDINAL; 
BlitLock : INTEGER; 
BlitNest 3 INTEGER; 
Blitwaitg 2 List; 
B1itOwner : TaskPtr; 
TOFWaItQ : List; 
(* NTSC PAL GENLOC etc. Display flags are determined at power on *) 
DisplayFlags : BITSET; 
SimpleSprites : ADDRESS; 
MaxDisplayRow : CARDINAL; 
MaxDisplayColumn : CARDINAL; 
NormalDisplayRows  : CARDINAL; 
NormalDisplayColumns : CARDINAL; 
Normal DPMX : CARDINAL; (* Dots per meter on display *) 
NormalDPMY 1 CARDINAL; (* Dots per meter on display *) 
LastChanceMemory : SignalSemaphorePtr; 
LCMptr : ADDRESS; 
MicrosPerLine : CARDINAL; (* 256 timer usec/line *) 
reserved + ARRAY [0..1] OF LONGCARD; 

END; 
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CONST 
(* Bit Mapping Of “DisplayFlags* field. *) 
NTSC = 
GENLOC = 
PAL = 2; 





BlitMsgFault = 4; 


END GraphicsBase. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
pret a teeettettetreeer trator: rac ecsiec at vote cen atecer ent tetera nana 
* Name: Heap.DEF Version: Amiga.00.00 

* Created: 07/06/87 Updated: 07/06/87 Author: Leon Frenkel 

* Description: Memory management module as defined in appendix 2 of 
"Programming in Modula-2* by N. Wirth. This module is included to 
allow programs written on other systems to be ported and vice versa, 
to access the full memory management capabilities of the Amiga use the 
module "Memory". 

This module may be used instead of Storage if it is necessary to be 
able to deallocate all memory allocated so far quickly, by using the 
FreeHeap() procedure. 
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DEFINITION MODULE Heap; 
FROM SYSTEM IMPORT ADDRESS; 
(*$L+*) 


PROCEDURE ALLOCATE(VAR a: ADDRESS; size: LONGCARD); 
(* Allocate an area of given size and returns its address in a. 


a - variable to be set to pointer to memory, set to NIL if not enough mem 
size - number of bytes to allocate *) 


PROCEDURE DEALLOCATE(VAR a: ADDRESS; size: LONGCARD); 
(" Frees the area at address a with the given size. 


a - varfable which contains the adr of the memory to be deallocated 
size - number of bytes to free *) 


PROCEDURE Available(size: LONGCARD): BOOLEAN; 

(* Available returns TRUE if size bytes could be allocated. Since the Amiga 
is a multi-tasking system, the only way to be sure that the memory will 
actually be available when the ALLOCATE 1s issued is to use Forbid() and 
Permit() around the call to this procedure and the call to the ALLOCATE 
procedure which may follow it. 





size - number of bytes we would require 

result - TRUE if the required amount of memory is available *) 
PROCEDURE FreeHeap(); 
(* Free all memory allocated with ALLOCATE() but not released with 
* DEALLOCATE(). 
5); 


END Heap. 


Module Heap 
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Module InitMathLibg 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
prrerevererrecerrrrererrrrtrcsetentrsarsersseeenvcrrartretteretrteettetccrdd 
* Name: InitMathLibO. DEF Version: Amiga.00.00 * 
* Created: 06/29/87 Updated: 06/29/87 Author: Leon Frenkel * 
* Description: Provides for initialization of the module "MathLibo". * 


JUICER I I IIIA ITI IIIT RT ITT TTI TAT TT III TIA ITI TI II ISIS IAS TTR, 
DEFINITION MODULE InitMathLibO; 


(*$L+*) 


PROCEDURE OpenMathLib0(): BOOLEAN; 
(* Open the Amiga *mathtrans. library". 


result - TRUE = opened successfully, FALSE = failed to open *) 


PROCEDURE CloseMathLibO(); 
(* Close the Aniga’s *mathtrans.library®. *) 


ENO InitMathLibo. 
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Module InOut 
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Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
SRR RRR RIA RRR RT RRR RR CRORE ERE RESE REESE RARE AREA ARES EERE RASERE ERE RAERE 
* Name: InQut.DEF Version: Amiga.00.00 * 
* Created: 11/19/86 Updated: 08/07/87 Author: Leon Frenkel * 
* Description: Standard InOut module as described in appendix 2 of * 
* Programming in Modula-2 by N. Wirth. * 
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DEFINITION MODULE InOut; 
FROM SYSTEM IMPORT WORD; 
FROM FileSystem IMPORT File; 


(*$L+*) 


CONST EOL = 12C; 

VAR Done: S00LEAN; 
termCH: CHAR; (*terminating character in ReadInt, ReadCard*) 
in, out: File; (*for exceptional cases only*) 


(* TRUE = echo chars in ReadString, FALSE = don’t echo *) 
Echo: BOOLEAN; (* Default: TRUE *) 


PROCEDURE OpenInput(defext: ARRAY OF CHAR); 
(*request a file name and open input file “in*. 
Done := "file was successfully opened". 
If open, subsequent input is read from this file. 
If name ends with *.", append extension defext*) 


PROCEDURE OpenOutput(defext: ARRAY OF CHAR); 
(*request a file name and open output file "out" 
Done := "file was successfully opened. 
If open, subsequent output is written on this file*) 


PROCEDURE OpeninputFile(filename: ARRAY OF CHAR); 
(* open the file of the specified name. 
Done := “file was successfully opened". 
If open, subsequent input 1s read from this file*) 





PROCEDURE OpenOutputFile(filename: ARRAY OF CHAR); 
(* open the file of the specified nane. 
Done := *file was successfully opened. 
If open, subsequent output is written on this file*) 





PROCEDURE CloseInput; 
(*closes input file; returns input to terminal*) 


PROCEDURE CloseQutput; 
(*closes output file; returns output to terminal*) 


PROCEOURE Read(VAR ch: CHAR); 
(*Done := NOT in.eof*) 


PROCEDURE ReadString(VAR s: ARRAY OF CHAR); 

(*read string, i.e. sequence of characters not containing 
blanks nor control characters; leading blanks are ignored. 
Input is terminated by any character <= * *; 
this character is assigned to termCH. 

DEL is used for backspacing when input from terminal*) 


PROCEDURE ReadInt(VAR x: INTEGER); 
(*read string and convert to integer. Syntax: 
integer = ["+"|"-"] digit (digit). 
Leading blanks are ignored. 
Done := "integer was read"*) 


PROCEDURE ReadCard(VAR x: CARDINAL); 
(*read string and convert to cardinal. Syntax: 
cardinal = digit (digit). 
Leading blanks are ignored. 
Done := “cardinal was read**) 


PROCEDURE ReadWrd(VAR w: WORD); 
(*Done := NOT in.eof*) 
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Module InOut 


PROCEDURE Write(ch: CHAR); 
PROCEDURE WriteLn;  (*terminate 1ine*) 
PROCEDURE WriteString(s: ARRAY OF CHAR); 


PROCEDURE WriteInt(x: INTEGER; n: CARDINAL); 
("write integer x with (at least) n characters on file "out". 
If n is greater than the number of digits needed, 
blanks are added preceding the number*) 


PROCEDURE WriteCard(x,n: CARDINAL); 
PROCEQURE WriteOct(x,n: CARDINAL); 
PROCEOURE WriteHex(x,n: CARDINAL); 
PROCEDURE WriteWrd(w: WORD); 

END Indut. 
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Module InputDevice 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Lean Frenkel * 
Prrererertrrrerriererreerecresticrertartreccerecccrrcrecttrerr errr tt tieet tas 
* Name: InputDevice.DEF Version: Amiga.00.00 . 
* Created: 11/26/86 Updated: 11/26/86 Author: Leon Frenkel * 
* Description: *input.device* types. * 


IIR ROR RRR RE RR RRR RRR RRR RIE R RETR IRE RE ERR IA REAR RESET ATEEE) 
DEFINITION MODULE InputDevice; 


FROM I0Devices IMPORT CmdNonStd; 





CONST 
INDAddHandler = CmdNonStd + 0; 
INORemHandler = CmdNonStd + 1; 
INDWriteEvent = CmdNonStd + 2; 
INDSetThresh = CmdNonStd + 3; 
INOSetPeriod = iNonStd + 4; 
INDSetMPort = CmdNonStd + 5; 
INOSetMType = CmdNonStd + 6; 
INDSetMTrig = CmdNonStd + 7; 


END InputDevice. 
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Module InputEvents 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel 3 
Wnnreeererrrerererrrrerrrrerrererrrereerres pest ratrerr terre ratterte sist tes 
* Name: Inputévents.DEF Version: Amiga.00.00 * 
* Created: 11/26/86 Updated: 05/07/86 Author: Leon Frenkel * 
* Description: Amiga InputEvents types. * 


JIG II IOC IOI TTI IT I III IIIT III IAI IT AI IIASA T IAI IAI SI AISI AF, 
DEFINITION MODULE InputEvents; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 
FROM TimerDevice IMPORT timeval; 


TYPE 
(* InputEvent.{eClass *) 
IEClass = (IEClassNull, (* a NOP input event *) 

IEClassRawkey, (* a raw keycode from the keboard device *) 
TEClassRawMouse, (* raw mouse report from the gameport dev*) 
IeClasstvent, (* a private console event *) 
IEClassPointerPos, (* a pointer position report *) 
IEClass5, (* not used *) 
IEClassTimer, (* a timer event *) 
IEClassGadgetOown, (* select button pressed down over gadget*) 
IEClassGadgetup, (* select button released over same gadget") 
IEClassRequester, (* some requester activity has taken plate*) 
IEClassMenuList, (* this 1s a Menu Number transmission *) 
IEClassCloseWindow, (* active windows close gadget selected *) 
IEClassS1zeWindow, (* the window is a new size *) 
IEClassRefreshWindow,  (* window needs to be refreshed *) 
IEClassNewPrefs, (* new preferences are available *) 
IEClassD1skRemoved, (* disk has been removed *) 
IEClassOiskInserted,  (* disk has been inserted *) 
IEClassActiveWindow,  (* window is about to be made active *) 
IEClassInactiveWindow); (* window is about to be made inactive *) 

CONST 


IEClassMax = IEClassInactiveWindow; (* the last class *) 


(* InputEvent.teCode *) 
(* IEClassRawkey *) 


LeCodeUpPratix = 80H; 
TECodeKeyCodeFirst = OOH; 
TECodeKeyCodeLast = 77H; 
TECadeCommCodeFirst = 78H; 
IéCodeCommCodeLast = 7FH; 
(* TEClassANSI *) 

TECadeCOFirst = OOOH; 
IECodeCOLast = OLFH; 
TECodeASCIIFirst = 020H; 
TECodeASCIILast = O7EH; 
IECodeASCII0e1 = O7FH; 
TECodeCiFirst = 080H; 
IECodeCiLast = O9FH; 
TeCodeLatiniFirst = OAOH; 
TeCodeLatinilast = OFFH; 


(* TEClassRawMouse *) 
TeCodeLButton = O68H; (* also uses IECodeUpPrefix *) 
IECadeRButton = 069H; 
TECodeMButton = O6AH; 
TECodeNoButton = OFFH; 


(* IEClassEvent *) 
IECodeNewActive = O1H; (* active input window changed *) 


(* IEClassRequester Codes *) 


TeCodeRegSet = O1H; (* first Requester opens in window *) 
TéCodeReqClear » OOH; (* last Requester clears out of the window *) 
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TYPE 

(* InputEvent. fequalifier *) 

Tequalifier = (I&QualifierLshirt, 
TequalifterRshift, 
equalifierCapsLock, 
TequalifierContral, 
TeQualifierLalt, 
TeQualifierRAIt, 








TequalifierRCommand, 
equalifierNumericPad, 
TequalifierRepeat, 
IeQualifierInterrupt, 
TequalifierMultiBroadcast, 
equal ifierMidButton, 
TeQqualifierRButton, 
TeQualifierLertautton, 
TEQualifierRelativeMouse) ; 
TequalifierSet = SET OF IeQualifier; 


(* InputEvent *) 
InputEventPtr = POINTER TO InputEvent; 
InputEvent = RECORD 

jeNextEvent : InputEventPtr; 


teClass : IEClass; 
feSubClass : BYTE; 
ieCode > CARDINAL; 


deQualifier : LEQualifierset; 





(* 


CASE : CARDINAL OF 
| 0: 4eX : INTEGER; & 
dey : INTEGER; 
| 1: 1eEventAddress : ADDRESS; 
ENO; 
jeTimeStamp : timeval; c 
END; 


END InputEvents. 


Module InputEvents 


the choronologically next event *) 


the input event class *) 
optional subclass of class*) 
the input event code *) 
qualifiers in effect *) 


pointer position for event *) 


system tick at the event *) 
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Module Interrupts 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
pupererrecernrerecrercrrrc rrr reserecarscrentetrcrestrerttttrertceer tet tt? 
* Name: Interrupts. DEF Version: Amiga.00.00 . 
* Created: 11/19/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: Exec Interrupts Types/Functions. * 
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DEFINITION MODULE Interrupts; 


FROM SYSTEM IMPORT ADDRESS; 
FROM Lists IMPORT List; 
FROM Nodes IMPORT Node, NodePtr; 


TYPE 
InterruptPtr = POINTER TO Interrupt: 
Interrupt = RECORD 
isNode : Node; 
isData : ADDRESS; (* server data segment *) 
isCode : ADDRESS; (* server code entry s) 
END; 


(* For EXEC use ONLY! *) 
IntVectorPtr = POINTER TO IntVector; 
IntVector = RECORD 
ivData : ADDRESS; 
ivCode : ADDRESS; 
ivNode : NodePtr; 
END; 


(* For EXEC use ONLY! *) 
SoftintListPtr = POINTER TO SoftIntList; 
SoftIntList = RECORO 
shList : List; 
shPad : CARDINAL; 
END; 


CONST 
SIHPriMask = OOFOH; 


(* This is a fake INT definition, use only for AddIntServer and the like *) 
IntNMI = 15; 


PROCEDURE AddIntServer(intNum: CARDINAL; VAR interrupt: Interrupt); 
(* Add an interrupt server to the system. 
jntNum - the Portia interrupt bit number (0..14). Processor level seven 


interrupts (NMI) are encoded as intNum 15 
interrupt - an interrupt server nade *) 


PROCEDURE Cause(VAR interrupt: IntVector); 
(* Cause a software interrupt. 


interrupt - a properly initialized interrupt node *) 


PROCEOURE Disable; 
(* Disable interrupt processing. *) 


PROCEDURE Enable; 
(* Permit system interrupts to resume. *) 


PROCEDURE Forbid; 
(* Forbid task rescheduling. *) 


PROCEDURE Permit; 
(* Permit task rescheduling. *) 
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PROCEDURE RemIntServer(intNum: CARDINAL; VAR interrupt: Interrupt); 
(* Remove an interrupt server. 


intNum - the Portia interrupt bit (0..14) 
interrupt - an interrupt server node *) 


PROCEDURE SetIntVector(intNumber: CARDINAL; VAR interrupt: Interrupt): InterruptPtr; 
(* Set a system interrupt vector. 


intNum - the Portia interrupt bit number (0..14) 
interrupt - an interrupt node structure 


result - a pointer to the prior interrupt node which had control of this 
interrupt *) 


PROCEDURE SuperState(): ADDRESS; 
(* Enter supervisor state with user stack. 


result - system stack pointer. Save this. It will come in useful when 
you return to user state. If the system is already in supervisor 
mode, result 1s zero. *) 


PROCEOURE UserState(sysStack: ADDRESS 
(* Return to user state with user stack. 





sysStack - supervisor stack pointer *) 


END Interrupts. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel 4 
pupeenrerreeererencecarececst arrestor arserrececsetetet rete i ti ttttc te ir ire 
* Name: INTHardware.DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 11/30/86 Author: Leon Frenkel * 
* Description: Amiga INT control definitions. * 
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DEFINITION MODULE INTHardware; 
(*$L+ *) 


CONST 
(* Set/Clear contro] bit. Determines if bits written with a 1 get *) 
(* set orcleared. Bits written with a zero are always unchanged *) 
INTSetCIr = 1 





INTInten = Master interrupt (enable only) *) 
INTExter = Extenrnal interrupt *) 

INTDskSync = Disk re-SYNChronized *) 

INTRBF = serial port Recieve Buffer Full *) 
INTAUG3 = Audio channel 3 block finished *) 
INTAUd2 = Audio channel 2 block finished *) 
INTAUdL == Audio channel 1 block finished *) 
INTAUGO = Audio channel O block finished *) 
INTBHit = Blitter finished *) 

INTVertB = Start of Vertical Blank *) 
INTCoper = Coprocessor *) 

INTPorts = I/O Ports and timers *) 
INTSoftInt = software interrupt request *) 
INTOSKBIK = Disk Block done *) 

INTTBE = serial port Transmit Buffer Empty *) 





PROCEDURE OnVBlank; 

(* Implementation of *C’ macro: 

* #define ON_VBLANK custom. intena = BITSET|INTF_VERTB 
=) 


PROCEDURE OffVBlank; 

(* Implementation of ’C’ macro: 

* #define OFF_VBLANK custom. intena = BITCLR|INTF_VERTB 
*) 


ENO INTHardware. 
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: (c) 1986 by Leon Frenkel * 
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DEFINITION MODULE Intuition; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 

FROM System IMPORT IntuitionBase; (* Used by IMPLEMENTATION MODULE *) 

FROM Clipping IMPORT LayerPtr; IMPORT Clipping; 

FROM Graphics IMPORT BitMapPtr; IMPORT Graphics; 

FROM InputEvents IMPORT IEQualifier, IeQualifierSet, IeCodeUpPrefix, 
TeCodeLButton, TECodeRButton; 

FROM KeyMapResource IMPORT KeyMapPtr; 

FROM Memory IMPORT MemReqSet; 

FROM Ports IMPORT MsgPortPtr, Message; 

FROM Rasters IMPORT RastPort, RastPortPtr, Jam2, DrawModeSet; IMPORT Rasters; 

FROM Text IMPORT TextAttrPtr, TextFontPtr; 

FROM Views IMPORT ViewModesSet, ViewPortPtr, ViewPtr; IMPORT Views; 





CONST 
IntuitionName = “intuition. library"; 


TYPE 
(* Forward Pointer Types *) 





MenuPtr = POINTER TO Menu; 

MenuItemPtr = POINTER TO MenuIter 

RequesterPtr = POINTER TO Requester; 

GadgetPtr = POINTER TO Gadget; 

IntuiTextPtr = POINTER TO IntuiText; 

BorderPtr = POINTER TO Border; 

ImagePtr = POINTER TO Image; 

WindowPtr = POINTER TO Window; 

(* Menu =* 

MenuFlags = (* Flags set by both the appliprogram and intuition *) 


(MenuEnabled, (* whether or not this menu is enabled *) 

MF1, MF2, MF3, MF4, MF5, MF6, MF7, 

(* Flags set by intuition *) 

MiDrawn); (* this menu’s items are currently drawn *) 
MenuFlagsSet = SET OF MenuFlags; 


Menu = RECORD 


NextMenu : MenuPtr; (* same level *) 

LeftEdge | : INTEGER; (* position of the select box *) 
TopEdge : INTEGER; 

Width : INTEGER; (* dimensions of the select box *) 
Height : INTEGER; 

Flags : MenuFlagsSet; (* see flag definitions above *) 
MenuName : ADDRESS; (* text for this Menu Header *) 


FirstItem : MenultemPtr; (* pointer to first in chain *) 


(* these mysterfously-named vartables are for internal use only *) 


JazzXx : INTEGER; 

JazzY : INTEGER; 

BeatX > INTEGER; 

Beaty : INTEGER; 
END; 


(* sane Menultem saame= * 
MenuItemFlags = (* flags set by the appliprog *) 


(CheckIt, (* whether to check this item if selected *) 
ItemText,  (* set if textual, clear if graphics item *) 
ComaSeq, (* set if there’s a command sequence *) 


MenuToggle, (* set to toggle the check of a menu item *) 
ItemEnabled, (* set if this item is enabled *) 

MIF5, 

MIF6, (* bit 6,7 are the special highlight flags *) 
MIF7, 
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Checked, (* if CheckIt, then set this when selected *) 
MIF9, 

MIF10, 

MIF11, 

IsDrawn, (* this item’s subs are currently drawn *) 


Highttem, | (* this item is currently highlighted *) 
MenuToggled, (* this item was already toggled *) 
MIF15); 

MenuItemFlagsSet = SET OF MenuItemFlags; 


CONST 
(* these are the SPECIAL HIGHLIGHT FLAG state meanings *) 
HighFlags = MenuItemFlagsSet (MIF6, MIF7}; (* see definitions below for these bits *) 


HighImage = MenuItemFlagsSet (}; (* use the user’s "select image" *) 
HighComp = MenuItemFlagsSet (MIF6); (* highlight by complementing the selectbox *) 
HighBox = MenuItemFlagsSet (MIF7}; * highlight by "boxing" the selectbox *) 
HighNone = MenuItemFlagsSet(MIF6, MIF7}; (* don’t highlight *) 

TYPE 


(* menu item mutual exclude bits *) 
MenuItemMutualExcludeSet = SET OF [0..31]; 


MenuItem = RECORD 


NextItem : MenurtemPtr; (* pointer to next in chained list *) 
Leftedge : INTEGER; (* position of the select box *) 
TopEdge : INTEGER; 

Width : INTEGER; (* dimensions of the select box *) 
Height : INTEGER; 

Flags : MenultemFlagsSet; (* see the defines above *) 


(* set bits mean this item excludes that *) 
MutualExclude : MenuItemMutualExcludeset; 


ItemFi1] : ADDRESS; (* points to Image, IntuiText, or NIL *) 


(* when this item 1s pointed to by the cursor and the items 
* highlight mode HIGHIMAGE is selected, this alternate image 
* will be displayed 


SelectFill  : ADDRESS; (* points to Image, IntuiText, or NIL *) 
Command : BYTE; (* only if appliprog sets the CommSeq flag*) 
SubItem : MenultemPtr; (* {f non-zero, DrawMenu shows *->"*) 


(* The nextSelect field represents the menu number of next 
* selected item (when user has drag-selected several items) 


NextSelect  : CARDINAL; 
END; 


CONST 
(* menu stuff *) 
NoMenu = Q001FH; 
NoItem = QO03FH; 
NoSub = QOO1FH; 
MenuNull = OFFFFH; 





TYPE 
(* Requester = *) 
RequesterFlags = (* flags set by the appliprog *) 
(PointRel, (* 4f PointRel set, TopLeft is relative to pointer *) 
PreDrawn, (* 4f Req8Map points to predrawn Requester imagery *) 
NoisyReq, (* 4f you don’t want requester to filter input *) 


RF3, RF4, RF5, RF6, RF7, RFS, RF9, RF1O, RF11, 


(* flags set by intuition *) 

ReqOffwindow, (* part of one of the Gadgets was offwindow *) 
RegActive, (* this requester is active *) 

SysRequest,  (* this requester caused by system *) 


DeferRefresh); (* this requester stops a Refresh broadcast *) 
RequesterFlagsSet = SET OF RequesterFlags; 


Requester = RECORD 
(* the ClipRect and BitMap are used for rendering the requester *) 
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OlderRequest : RequesterPtr; 


LeftEdge : INTEGER; (* dimensions of the entire box *) 
TopEdge : INTEGER; 

Width : INTEGER; (* dimensions of the entire box *) 
Height : INTEGER; 

RelLeft : INTEGER; (* for Pointer relativity offsets *) 
RelTop : INTEGER; 

ReqGadget GadgetPtr; (* pointer to a list of Gadgets *) 





ReqBorder : BorderPtr; (* the box’s border *) 

ReqText : IntuiTextPtr; (* the box’s text *) 

Flags : RequesterFlagsSet; (* see definitions above *) 

(* pen number for back-plane fill before draws *) 

BackFi11 : BYTE; 

(* layer in place of clip rect *) 

ReqLayer : LayerPtr; 

ReqPadl : ARRAY [0..31] OF BYTE; 

(* If the BitMap plane pointers are non-zero, this tells the system 


that the {mage comes pre 





. drawn (if the appliprog wants to define 
* it’s own box, in any shape or size it wants!); this is OK by 

* Intuition as long as there’s a good correspondence between 

* the image and the specified Gadgets 

® 


(* points to the BitMap of PreDrawn imagery added *) 





Image8Map —: BitMapPtr; 
RWindow : WindowPtr; (* points back to Window *) 
ReqPad2 : ARRAY [0..35] OF BYTE; 








= (* flags set by the appliprog *) 
(GFO, (* gadget highlight bits *) 
Gri, 


(* set this flag if the GadgetRender and SelectRender point to 
* Image imagery, clear if it’s a Border 


GadgImage, 


(* combinations in these next two bits specify to which corner 
* the gadget’s Left & Top coordinates are relative. If 

* relative to Top/Left, these are "normal" coordinates 

* (everything is relative to something in this universe) 





GRe1Bottom,  (* set if rel to bottom, clear if rel top *) 
GRelRight, (* set 1f rel to right, clear if to left *) 


(* set the RelWidth bit to spec that Width is relative to width 
* of screen 


GRelWidth, 


(* set the RelHeight bit to spec that Height is rel to height 
* of screen 


GRelHeight, 


(* the Selected flag is initialized by you and set by Intuition 
* It specifies whether or not this Gadget is currently 

* selected/hightlighted 

* 


Selected, 


(* the GadgDisabled flag 1s initialized by you and later set by 
* Intuition according to your call to On/offGadget(). It 
* specifies whether or not this Gadget is currently disabled 
* from begin selected 
* 
) 
Gadg0isabled); 
GadgetFlagsSet = SET OF GadgetFlags; 
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CONST 


(* these bits describe the highlight technique to be used *) 
GadgHighBits = GadgetFlagsSet{GFO, GF1}; (* the highlight bits *) 


GadgHComp = GadgetFlagsSet{}; (* Complement the select box *) 
GadgHBox = GadgetFlagsSet {FO}; (* Draw a box around the image *) 
GadgHImage = GadgetFlagsSet(GF1}; (* Blast in this alternate image *) 
GadgHNone = GadgetFlagsSet{GFO, GF1); (* don’t highlight *) 

TYPE 


(* These are the Activation flag bits *) 
GadgetActivation = (* RelVerify is set if you want to verify that the pointer 


* was still over the gadget when the select button was 
* released 


(Relverify, 


(* the flag GadgImmediate, when set, informs the caller 
* that the gadget was activated when it was activated 
* this flag works in conjuction with the RelVerify flag 


GadgIamediate, 


(* the flag EndGadget, when set, tells the system that 

* this gadget, when selected, causes the Requester 

* or AbsMessage to be ended. Requesters or AbsMessages 

* that are ended are erased and unlinked from the system 
* 


EndGadget , 
(* the FOLLOWMOUSE flag, when set, specifies that you want to receive 
reports on mouse movements (fe, you want the REPORTMOUSE function for 
your Window). When the Gadget 1s deselected (immediately if you have 

No RELVERIFY) the previous state of the REPORTMOUSE flag is restored 
You probably want to set the GAOGIMMEDIATE flag when using FOLLOWMOUSE, 
since that’s the only reasonable way you have of learning why Intuition 
4s suddenly sending you a stream of mouse movement events. If you dan’t 
set RELVERIFY, you’1l get at least one Mouse Position event. 


Pee ee: 


Fol lowMouse, 


(* if any of the BORDER flags are set in a Gadget that’s 
* included in the Gadget list when a Window is opened, 
* the corresponding Border will be adjusted to make 
* room for the Gadget 

RightBorder, 

LeftBorder, 

TopBorder, 

BottomBorder, 


ToggleSelect, (* this bit for toggle-select mode *) 


StringCenter, (* should be a StringInfo flag, but it’s ok*) 
StringRight, (* should be a StringInfo flag, but it’s ok*) 


Longint, (* this String Gadget 1s actually LONG Int *) 
AltKeyMap,  (* this String has an alternate keymap *) 


BoolExtend); (* this Boolean Gadget has a BoolInfo *) 


GadgetActivationSet = SET OF GadgetActivation; 


(* Gadget mutual exclusion bits *) 
GadgetMutualExcludeSet = SET OF [0..31]; 


(* Gadget type set, bit descriptions follow *) 
GadgetTypeSet = SET OF [0..15]; 


CONST 


(* GADGET TYPES *) 


(* These are the Gadget Type definitions for the variable GadgetType 
* gadget number type MUST start from one. NO TYPES OF ZERO ALLOWED. 
* first comes the mask for Gadget flags reserved for Gadget typing 
* 


GadgetType = GadgetTypeSet(10..15}; (* all Gadget Global Type flags (padded) *) 
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SysGadget 
ScrGadget 
GzzGadget 
ReqGadget 
(* system 
Sizing 

WOragging 
SOragging = 
WUpFront = 
SUpFront = 


= GadgetTypeSet (15); 
= GadgetTypeSet (14 
= GadgetTypeSet (13 
= GadgetTypeSet {12}; 
gadgets *) 

= GadgetTypeSet (4); 

= GadgetTypeSet (5); 
Gadget TypeSet 4,5}; 
Gadget TypeSet (6}; 
Gadget TypeSet {4,6}; 
GadgetTypeSet(5,6 
SOownBack = GadgetTypeSet(4,5,6); 
Close = GadgetTypeSet (7); 

(* application gadgets *) 
BoolGadget = GadgetTypeset (0); 
Gadget0002 = GadgetTypeSet {1}; 
PropGadget = GadgetTypeSet {0,1}; 
StrGadget = GadgetTypeSet(2); 









WOownBack 





TYPE 
Gadget = RECORD 

NextGadget 
Leftedge 
TopEdge 
Width 
Height 
Flags 
Activation 
GadgetType 





: GadgetPtr; 
2 INTEGER; 
INTEGER; 
INTEGER; 
2 INTEGER; 
GadgetFlagsSet; 
GadgetActivationSet; (* 
: GadgetTypeSet; 


eee 


SysGadget, O = AppliGadget *) 
ScreenGadget, O = WindowGadget *) 
Gadget for GimmeZeroZero borders *) 
this is a Requester Gadget *) 


(* 
(* 


" 


next gadget in the list 
"hit box" of gadget* *) 


"hit box" of gadget* *) 


see above for defines *) 
see above for defines *) 


(* see above for defines *) 


(* appliprog can specify that the Gadget be rendered as either as 


* Border or an Image. 


This variable points to which (or equals 


* NIL if there’s nothing to be rendered about this Gadget) 


GadgetRender 


+ ADDRESS; 


(* appliprog can specify *highlighted* imagery rather than 
* algorithmic this can point to either Border or Image data 
* 


SelectRender 
Gadget Text 


¢ 


the gadget list. 


: ADDRESS; 


: IntuiTextPtr; (* text for this gadget *) 


by using the MutualExclude word, the appliprog can describe 
which gadgets mutually-exclude which other ones. 
in MutualExclude correspond to the gadgets in object containing 
If this gadget is selected and a bit is set 

in this gadget’s MutualExclude and the gadget corresponding to 
that bit is currently selected ( 
is currently selected) that gadget must be unselected. 

Intuition does the visual unselecting (with checkmarks) and 


The bits 





bit 2 set and gadget 2 





* leaves it up to the program to unselect internally 


MutualExclude 


: GadgetMutualExcludeset; 


(* pointer to a structure of special data required by Proportional, 
* String and Integer Gadgets 


SpecialInfo : ADDRESS; 
GadgetID = CARDINAL; (* user-definable ID field *) 
UserData : ADDRESS; (* ptr to general purpose user data *) 
END; 





(* sase= BoolInfo sasm= *) 


(* This is the special data needed by an Extended Boolean Gadget 
* Typically this structure will be pointed to by the Gadget field Specialinfo 


BoolInfoFlags = 


(* set BoolInfo.Flags to this flag bit. 
* in the future, additional bits might mean more stuff hanging 
* off of Boolinfo.Reserved. 


(Boo1Mask, 


(* extension is for masked gadget *) 
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(* Reserved flags *) 
BIF1, BIF2, BIF3, BIF4, BIFS, BIF6, BIF7, BIFS, 
BIF9, BIF10, BIF11, BIFI2, BIF13, BIF14, BIF15); 


BoolInfoFlagsSet = SET OF BoolInfoFlags; 


BoolInfoPtr = POINTER TO BooliInfo; 
BoolInfo = RECORD 
Flags : BoolInfoFlagsSet; (* defined above *) 


(* bit mask for highlighting and selecting mask must follow 
* same rules as an Image plane. It’s width and height are 
* determined by the width and height of the gadget’s select 
* box. (1.e. Gadget.Width and .Height). 


DN 


Mask : ADDRESS; 


Reserved : LONGCARD; (* set to O *) 


(* ==as= PropInfo ===== *) 
(* this 1s the special data required by the proportional Gadget 
* typically, this data will be pointed to by the Gadget variable Specialinfo 


(* FLAG BITS *) 


PropInfoFlags = (AutoKnob, (* this flag sez: gimme that old auta-knob*) 
FreeHoriz, (* 4f set, the knob can move horizontally *) 
FreeVert, (* 4f set, the knob can move vertically *) 


PropBorderless, (* if set, no border will be rendered *) 


(* reserved flags *) 
PIF4, PIF5, PIF6, PIF7, 


KnobHit, (* set when this Knob is hit *) 


(* reserved flags *) 
PIF9, PIF1O, PIF11, PIF12, PIF13, PIF14, PIF15); 


PropInfoF lagsSet = SET OF PropInfoF lags; 


PropInfoPtr = POINTER TO Propinfo; 
PropInfo = RECORD 
Flags : PropInfoFlagsSet; (* general purpose flag bits *) 
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* 


* 


) 
(* 


You initialize the Pot variables before the Gadget is added to 
the system. Then you can look here for the current settings 
any time, even while User is playing with this Gadget. To 
adjust these after the Gadget is added to the System, use 
ModifyProp(); The Pots are the actual proportional settings, 
where a value of zero means zero and a value of MAXPOT means 
that the Gadget is set to its maximum setting. 


16-bit FixedPoint horizontal quantity percentage *) 


HorizPot —: CARDINAL; 


ct 


16-bit FixedPoint vertical quantity percentage *) 


VertPot : CARDINAL; 


( 


Pree ee eee ee a es 


the 16-bit FixedPoint Body variables describe what percentage of 

the entire body of stuff referred to by this Gadget is actually 

shown at one time. This 1s used with the AUTOKNOB routines, 

to adjust the size of the AUTOKNOB according to how much of 

the data can be seen. This is also used to decide how far 

to advance the Pots when User hits the Container of the Gadget. 

For instance, if you were controlling the display of a 5-line 

Window of text with this Gadget, and there was a total of 15 

lines that could be displayed, you would set the VertBody value to 
(MAXBODY / (TotalLines / DisplayLines)) = MAXBODY / 3. 

Therefore, the AUTOKNOB would f111 1/3 of the container, and 

if User hits the Cotainer outside of the knob, the pot would 

advance 1/3 (plus or minus) If there’s no body to show, or 

the total amount of displayable info is less than the display area, 

set the Body variables to the MAX. To adjust these after the 

Gadget is added to the System, use ModifyProp(); 


® 
) 


Hoi 
Vel 


izBady : CARDINAL; (* horizontal Body *) 
rtBody : CARDINAL; (* vertical Body *) 
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(* these are the variables that Intuition sets and maintains *) 


Cwidth : CARDINAL; (* Container width (absolute) *) 
CHeight  : CARDINAL; (* Container height (absolute) *) 
HPotRes : CARDINAL; (* pot increments *) 

VPotRes —: CARDINAL; 


LeftBorder : CARDINAL; (* Container borders *) 
TopBorder : CARDINAL; 


END; 

CONST 
KnobHMin = 6; (* minimum horizontal size of the Knob *) 
KnobVMin = 4; (* minimum vertical size of the Knob *) 
MaxBody = OFFFFH; (* maximum body value *) 
MaxPot = OFFFFH; (* maximum pot value *) 

TYPE 


(* aane= StringInfo ===== *) 

(* this 1s the special data required by the string Gadget 

* typically, this data will be pointed to by the Gadget variable SpecialInfo 
® 


StringInfoPtr = POINTER TO StringInfo; 
StringInfo = RECORD 
(* you init these var, and then Intuition maintains them *) 











Buffer 3 buffer containing the start/final string *) 
UndoBuffer : optional buffer for undoing current entry *) 
BufferPos : INTEGER; (* chi ter position in Buffer *) 

MaxCha : INTEGER; # chars in Buffer (incl null) *) 


DispPos INTEGER; (* Buffer position of first disp] char *) 

(* Intuition inits and maintaing these variables for you *) 

UndoPos : INTEGER; (* char position in undo buffer *) 

NuaChars : INTEGER; (* # of chars currently in buffer *) 

DispCount +: INTEGER; (* # of whole chars visible in Container*) 

Cleft INTEGER; (* topleft offset of the container *) 

CTop : INTEGER; 

LayerPtr : Clipping.LayerPtr; (* the RastPort containg this Gadget *) 


(* you can initialize this variable before the gadget is 

* submitted to Intuition, and then examine it later to 

* discover what integer the user has entered (if the user 
* never plays with the gadget, the value will be unchanged 
* from your initial setting) 

* 


LongInt : LONGINT; 





If you want this Gadget to use your own Console 
keymapping, you set the ALTKEYMAP bit in the Activation 
flags of the Gadget, and then set this variable to point 
to your keymap. If you don’t set the AltKeyMap, you’11 
get the standard ASCII keymapping. 


aa 


AltKeyMap : KeyMapPtr; 
END; 





(* samman IntuiText =senes * 

(* IntuiText 1s a sertes of strings that start with a screen location 
(always relative to the upper-left corner of something) and then the 

* text of the string. The text is null-terminated. 





=) 

IntuiText = RECORD 
FrontPen : BYTE; (* the pen numbers for rendering *) 
BackPen : BYTE; 
DrawMode : OrawModeSet; (* the mod for rendering the text *) 
Leftedge : INTEGER; (* relative start location for text*) 
TopEdge : INTEGER; (* relative start location for text*) 
ITextFont : TextattrPtr; .(* if NIL, you accept the default *) 
Text: ADDRESS; (* pointer to null-terminated text *) 
NextText : IntuiTextPtr; (* cont. to TxWrite another text *) 

END; 





Border =ass== *) 
(* Data type Border, used for drawing a series of lines which is intended for 
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* use as a border drawing, but which may, in fact, be used to render any 

* arbitrary vector shape. 

* The routine DrawBorder sets up the RastPort with the appropriate 

* variables, then does a Move to the first coordinate, then does Draws 

* to the subsequent coordinates. 

* After all the Draws are done, if NextBorder 1s non-zero we call OrawBorder 
* recursively 


Border = RECORD 


LeftEdge : INTEGER; (* inital offsets from the origin *) 
TopEdge = :_ INTEGER; 
FrontPen : BYTE; (* pens numbers for rendering *) 
BackPen : BYTE; 
DrawMode : DrawModeSet; (* mode for rendering *) 
Count : BYTE; (* number of XY pairs *) 
xy 2 ADDRESS; (* vector coord pairs rel to LeftTop*) 
NextBorder : BorderPtr; (* pointer to any other Border too *) 
END; 


(* annn= Image s=se= *) 
(* This is a brief image structure for very simple transfers of 
* image data to a RastPort 


Tmage = RECORD 
Leftedge : INTEGER; (* starting offset relative to some origin *) 


TopEdge : INTEGER; (* starting offset relative to some origin *) 
Width : INTEGER; (* pixel size (though data is word-aligned)*) 
Height. : INTEGER; (* pixel size (though data is word-aligned)*) 
Depth : INTEGER; (* pixel size (though data is word-aligned)*) 


ImageData : ADDRESS; (* pointer to the actual word-aligned bits *) 


PER) ee eee) ee heey 


the PlanePick and PlaneOnOff variables work much the same way as the 
equivalent GELS Bob variables. It’s a space-saving 
mechanism for image data. Rather than defining the image data 
for every plane of the RastPort, you need define data only 
for the planes that are not entirely zero or one. AS you 
define your Imagery, you will often find that most of the planes 
ARE just as color selectors. For instance, if you’re designing 
a two-color Gadget to use colors two and three, and the Gadget 
will reside in a five-plane display, bit plane zero of your 
jmagery would be all ones, bit plane one would have data that 
describes the imagery, and bit planes two through four would be 
all zeroes. Using these flags allows you to avoid wasting all 
that memory in this way: first, you specify which planes you 
want your data to appear in using the PlanePick variable. For 
each bit set in the variable, the next "plane* of your image 
data is blitted to the display. For each bit clear in this 
variable, the corresponding bit in PlaneOnOff is examined. 
If that bit is clear, a “pla of zeroes will be used. 
If the bit is set, ones will go out instead. So, for our example: 
Gadget .PlanePick = Ox02; 
Gadget .PlaneOnOff = Ox01; 
Note that this also allows for generic Gadgets, like the 
System Gadgets, which will work in any number of bit planes. 
Note also that if you want an Image that is only a filled 
rectangle, you can get this by setting PlanePick to zero 
(pick no planes of data) and set PlaneOnOff to describe the pen 
color of the rectangle. 











PlanePick : BYTE; 
Planeonoff : BYTE; 


(* if the NextImage variable is not NIL, Intuition presumes that 
* it points to another Image structure with another Image to be 
* rendered 
5) 
NextImage : InagePtr; 

END; 


IntuiMessage 
IDCMPFlags = (SizeVerify, 
NewSize, 
RefreshWindow, 
MouseButtons, 
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MouseMove, 

GadgetDown, 

GadgetUp, 

ReqSet, 

MenuPick, 

(* Changed from "CloseWindow" to "Closewindow* to avoid 


* confusion with the "CloseWindow" procedure in module Windows. 
® 


Closewindow, 
RawKey, 
ReqVerify, 
ReqClear, 
MenuVerify, 
NewPrefs, 
DiskInserted, 
DiskRemoved, 
WBenchMessage, 
ActiveWindow, 
InactiveWindow, 
DeltaMove, 
Vanillakey, 
IntuiTicks, 
IF23, IF24, IF25, IF26, 1F27, IF28, IF29, IF30, 


(* the IDCMP Flags do not use this special bit, which is 
* cleared when Intuition sends its special message to the 
* Task, and set when Intuition gets its Message back from the 
* Task. Therefore, I can check here to find out fast whether 
* or not this Message is available for me to send 
* 
) 
LonelyMessage) ; 
IDCMPFlagsSet = SET OF IDCMPFlags; 


CONST 
(* IDCMP Codes *) 
(* This group of codes 1s for the MenuVerify function *) 
MenuHot = OOO1H; (* IntuiWants verification or MenuCancel *) 
MenuCancel = 0002H; (* HOT Reply of this cancels Menu operation *) 
MenuWaiting = 0003H; (* Intuition simply wants a ReplyMsg() ASAP *) 





(* These are internal tokens to represent state of verification attempts 
* shown here clue 





OkOk = MenuHot; (* guy didn’t care *) 
OkAbort = O004H; (* window rendered question moot *) 
OkCancel = MenuCencel; (* window sent cancel reply *) 


(* This group of codes is for the WBenchMessage messages *) 
WBenchOpen = OOO1H; 
WBenchClose = 0002H; 


TYPE 
IntuiMessagePtr = POINTER TO IntuiMessa, 
IntuiMessage = RECORD 
ExecMessage : Message; 





(* the Class bits correspond directly with the IOCMP Flags, 
* except for the special bit LONELYMESSAGE (defined above) 
>) 

Class : IDCMPFlagsSet; 


(* the Code field is for special values like MENU number *) 
Code : CARDINAL; 


(* the Qualifier field is a copy of the current InputEvent’s 
* Qualifier 
* 


Qualifier : I&QualifierSet; 


(* Address contains particular addresses for Intuition 
*functions, like the pointer to the Gadget or the Screen 


IAddress : ADDRESS; 


(* when getting mouse movement reports, any event you get 
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* will have the the mouse coordinates in these variables. 
* the coordinates are relative to the upper-left corner of 
* your Window (GIMMEZEROZERO notwithstanding) 

*) 

MouseX t INTEGER; 

MouseY : INTEGER; 


(* the time values are copies of the current system clock 
* time. Micros are in units of microseconds, Seconds in 


* seconds. 

i 

Seconds : LONGCARD; 
Micros : LONGCARD; 


(* the IDCMPWindow variable will always have the address of 
* the Window of this IDCMP 


IDCMPWindow : WindowPtr; 


SpecialLink : IntuiMessagePtr; (* system-use variable *) 
END; 


(* sxmeee Screen =asse= *) 
ScreenFlags = (* Flags set by Intuition *) 
(SFO, SF1, SF2, SF3, (* screen type described below *) 


Showtitle,  (* this gets set by a call to ShowTitle() *) 

Changed from "ShowTitle* to "Showtitie" to 
avoid name conflict with the function of 
the same nane *) 


ae 


Beeping, (* set when Screen 1s beeping *) 


CustomBitmap, (* if you are supplying your own BitMap *) 
(* Changed from *CustomBitMap" to "CustomBitmap" 
to avoid name conflict with the NewScreen 
structure field "CustomBitMap". *) 


ScreenBehind, (* 1f you want screen to open behind already 
* open screens 
i) 


ScreenQuiet, (* if you do not want Intuition to render 
* into your screen (gadgets, title) 
i) 
SF9, SF1O, SF11, SF12, SF13, SF14, SF15); (* reserved *) 
ScreenFlagsSet = SET OF ScreenFlags; 


CONST 


(* The ScreenType bits are reserved for describing various Screen types 
* available under Intuition. 


*) 
ScreenType = ScreenFlagsSet(SFO..SF3}; (* all the screens types available*) 
WBenchScreen = ScreenFlagsSet (SFO); (* Ta Da! The Workbench *) 


CustomScreen = ScreenFlagsSet{SFO, SF1, SF2, SF3}; (* for the special look *) 


StdScreenHetght = ~ 





(* supply in NewScreen.Height *) 


TYPE 
ScreenPtr = POINTER TO Screen; 
Screen = RECORD 
NextScreen : ScreenPtr; (* linked list of screens *) 
FirstWindow : WindowPtr; (* linked list Screen’s Windows *) 


Leftedge © : INTEGER; (* parameters of the screen *) 
TopEdge : INTEGER; 

Width : INTEGER; (* parameters of the screen *) 
Height 2 INTEGER; 

MouseY : INTEGER; (* position relative to upper-left *) 
MouseX : INTEGER; 

Flags : ScreenFlagsSet; (* see definitions above *) 
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Title 


ADDRESS; (* null-terminated Title text *) 
DefaultTitle 


: ADDRESS; (* for Windows without ScreenTitle *) 
(* Bar sizes for this Screen and all Window’s in this Screen *) 
BarHeight |: BYTE; 
BarVBorder : BYTE; 
BarHBorder : BYTE; 
MenuVBorder : BYTE; 
MenuHBorder : BYTE; 


WBorTop 2 BYTE; 
WeorLeft — : BYTE; 
WBorRight : BYTE; 


WBorBottom : BYTE; 
Font : TextaAttrPtr; (* this screen’s default font *) 


(* the display data structures for this Screen *) 
ViewPort : Views. ViewPort; (* describing the Screen’s display *) 





RastPort  : Rasters.RastPort;  (* describing Screen rendering *) 
BitMap : Graphics.BitMap;  (* extra copy of RastPort BitMap *) 
LayerInfo = Clipping.LayerInfo; (* each screen gets a LayerInfo *) 


(* You supply a linked-list of Gadgets for your Screen. 
* This list DOES NOT include system Gadgets. You get the standard 
* system Screen Gadgets by default 


FirstGadget : GadgetPtr; 


DetailPen : BYTE; (* for bar/border/gadget rendering *) 
BlockPen : BYTE; 


(* the following vartable(s) are maintained by Intuition to 
* support the DisplayBeep() color flashing technique 
*) 


SaveColorO : CARDINAL; 


(* This layer is for the Screen and Menu bars *) 


BarLayer > LayerPtr; 

ExtData : ADDRESS; 

UserData : ADDRESS; (* general-purpose ptr to User data ext *) 
ENO; 


* amaeen NewScreen smnex= *) 


NewScreenPtr = POINTER TO NewScreen; 
NewScreen = RECORD 








Leftédge : INTEGER; (* Screen dimensions *) 

TopEdge : INTEGE! 

Width > INTEGER; 

Height : INTEGER; 

Depth : INTEGER; 

DetailPen : BYTE; (* for bar/border/gadget rendering *) 
BlockPen > BYTE; 

ViewModes : ViewModesSet; (* the Modes for the ViewPort *) 
Type : ScreenFlagsSet; (* the screen type (see above)*) 
Font : TextAttrPtr; (* new Screen’s default text attr*) 


DefaultTitle : ADDRESS; (* the default title for this Screen *) 
Gadgets : GadgetPtr; (* your own Gadgets for this Screen*) 


(* if you are opening a CustomScreen and already have a BitMap 
* that you want used for your Screen, you set the flags 

* CustomBitMap in the Type field and you set this variable 

* to point to your BitMap structure. The structure will be 

* copied into your Screen structure, after which you may 

* discard your own BitMap if you want 

* 


CustomBitMap : BitMapPtr; 
END; 
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(* wnsnes= Window seess2= *) 


WindowFlags = (* Flags requested (not directly set though) by the appliprog *) 
(WindowSizing, (* include sizing system-gadget? *) 
WindowOrag,  (* include dragging system-gadget? *) 
WindowDepth, © (* include depth arrangement gadget? *) 
WindowClase,  (* include close-box system-gadget? *) 


SizeBRight,  (* size gadget uses right border *) 
SizeBBottom,  (* size gadget uses bottom border *) 


WF6, (* refresh modes: WF6, WF7 define below *) 
WF7, 
BackDrop, (* this is an ever-popular BackDrop window *) 


Reportmouse, (* set this to hear about every mouse move *) 
*Reportmouse* to avoid conflict with 
¢ 


a) 
*ReportMouse()* function. *) 
GimmeZeroZero, (* make extra border stuff *) 


Pars 


Borderless,  (* set this to get a Window sans border *) 
Activate, (* when Window opens, it’s the Active one *) 


(* Flags set by Intuition *) 

WindowActive, (* this window 1s the active one *) 
InRequest, (* this window is in request mode *) 
MenuState, (* this window is active with its Menus on *) 


(* Other user flags *) 


RMBTrap, (* Catch RightMouseButton events for your own *) 
NoCareRefresh, (* not to be bothered with Refresh *) 


(* Reserved flags *) 
WF18, WF19, WF20, WF21, WF22, WF23, 


(* Other Intuition Flags *) 

WindowRefresh, (* Window is currently refreshing *) 
WBenchWindow, (* WorkBench too) ONLY Window *) 
WindowTicked, (* only one timer tick at a time *) 


(* Reserved flags *) 
WF27, WF28, WF29, WF30, WF31); 
WindowFlagsSet = SET OF WindowFlags; 


CONST 
(* bits of Flags unused yet *) 
(* in the file intuition. the mask 1s $FCFCOOOO, but it should be $FBFCOO00*) 
SuperUnused = WindowFlagsSet (WF18. .WF23, WF27..WF31}; 


(* refresh modes *) 

(* combinations of the RefreshBits select the refresh type *) 
RefreshBits = WindowFlagsSet(WF6, WF7); 

SmartRefresh = WindowFlagsSet(}; 

SimpleRefresh = WindowFlagsSet (WF6); 

SuperBitMap = WindowF lagsSet (WF7); 

OtherRefresh = WindowFlagsSet(WF6, WF7); 


TYPE 
Window = RECORD 
NextWindow : WindowPtr; (* for the linked list in a screen *) 


Leftedge : INTEGER; (* screen dimensions of window *) 
TopEdge : INTEGER; 

Width : INTEGER; (* screen dimensions of window *) 
Height : INTEGER; 

MouseY : INTEGER; (* relative to upper-left of window *) 
MouseX : INTEGER; 

MinWidth —: INTEGER; (* minimum sizes *) 

MinHeight —: INTEGER; 
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MaxWidth ©: CARDINAL; —(* maximum sizes *) 

MaxHeight : CARDINAL; 

Flags : WindowFlagsSet; (* see above for defines *) 
Menustrip = MenuPtr; (* the strip of menu headers *) 
Title : ADDRESS; (* the title text for this window *) 


FirstRequest : RequesterPtr; (* all active Requesters *) 


DMRequest —: RequesterPtr; (* double-click Requester *) 
ReqCount : INTEGER; (* count of regs blocking window *) 
wWScreen : ScreenPtr; (* this Window’s screen *) 

RPort : RastPortPtr; (* this Window’s very own RastPort *) 


(* the border variables describe the window border. If you specify 

GimmeZeroZero when you open the window, then the upper-left of the 
ClipRect for this window will be upper-left of the BitMap (with correct 
offsets when in SuperBitNap mode; you MUST select GimmeZerozero when 
using SuperBitMap). If you don’t specify ZeroZero, then you save 
memory (no allocation of RastPort, Layer, ClipRect and associated 
Bitmaps), but you also must offset all your writes by BorderTop, 
BorderLeft and do your own mini-clipping to prevent writing over the 
system gadgets 


Pea) 


BorderLeft : BYTE; 
BorderTop : BYTE; 
BorderRight |: BYTE; 
BorderBottom : BYTE; 
BorderRPort : RastPortPtr; 


(* You supply a linked-list of Gadgets for your Window. 

* This list DOES NOT include system gadgets. You get the standard 
* window system gadgets by setting flag-bits in the variable Flags 
* (see the bit definitions above) 

* 


FirstGadget : GadgetPtr; 


(* these are for opening/closing the windows *) 
Parent WindowPti 
Descendant > WindowPt: 





(* sprite data information for your own Pointer 
* set these AFTER you Open the Window by calling SetPointer() 





Pointer : ADDRESS; 
PtrHeight BYTE; 
PtrwWidth BYTE; 
xoffset : BYTE; 
yorfset : BYTE; 


(* the IDCMP Flags and User’s and Intuition’s Message Ports *) 
IDCMPFlags : IDCMPFlagsSet; (* User-selected flags *) 


UserPort : MsgPortPtr; 

WindowPort : MsgPortPtr; 

MessageKey : IntuiMessagePtr; 

DetailPen = -BYTE; (* for bar/border/gadget rendering *) 
BlockPen —: BYTE; 


(* the CheckMark is a pointer to the imagery that will be used when 
* rendering Menultems of this Window that want to be checkmarked 


* 4f this is equal to NULL, you’ll get the default imagery 
* 


CheckMark : ImagePtr; 


(* if non nil, Screen title when Window is active *) 
ScreenTitle : ADDRESS; 


(* These variables hav? the mouse coordinates relative to the 
* inner-Window of GIMMEZEROZERO Windows. This is compared with the 
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* MouseX and MouseY variables, which contain the mouse coordinates 
* relative to the upper-left corner of the Window, GIMMEZEROZERO 
* notwithstanding 


*) 
GZZMouseX = :_ INTEGER; 
G2ZMouseY —:_ INTEGER; 


(* these variables contain the width and height of the 
* inner-Window of GimmeZeroZero Windows 


BD 

G22Width > INTEGER; 
G2ZHeight > INTEGER; 
ExtData > ADDRESS; 


(* general-purpose pointer to user data extension *) 
Userdata : ADDRESS; 


(* this pointer keeps a duplicate of what. Window.RPort->Layer 
* 4s supposed to be pointing at 
*) 





2 LayerPtr; 


(* need to keep track of the font that OpenWindow opened, 
* in case user SetFont’s into RastPort 


IFont : TextFontPtr; 
END; 


= NewWindow # 








NewWindowPtr = POINTER TO NewWindow; 
NewWindow = RECORD 
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Leftedge INTEGER; (* screen dimensions of window *) 
TopEdge INTEGER: 

width INTEGER; (* screen dimensions of window *) 
Height INTEGER; 

OetailPen : BYTE; (* for bar/border/gadget rendering *) 
BlockPen —: ‘BYTE; 


IOCMPFlags : IDCMPFlagsSet; (* user-selected IOCMP flags *) 
Flags : WindowFlagsSet; (* see Window struct for def's *) 


(* You supply a linked-list of Gadgets for your Window. 

* This list DOES NOT include system Gadgets. You get the 

* standard system Window Gadgets by setting flag-bits in the 
* variable Flags (see the bit definitions under the Window 

* structure definition) 


FirstGadget : GadgetPtr; 


(* the CheckMark is a pointer to the imagery that will be used 
* when rendering MenuItems of this Window that want to be 
* checkmarked if this is equal to NIL, you’ll get the default 


* {magery 

* 

CheckMark : ImagePtr; 

Title : ADDRESS; (* the title text for this window *) 


(* the Screen pointer is used only if you've defined a 

* CurstomScreen and want this Window to open in it. If so, 

* you pass the address of the Custom Screen structure in this 
* Variable. Otherwise, this variable is ignored and doesn’t 
* have to be initialized. 

isi 

Screen : ScreenPtr; 


(* SuperBitMap Window? If so, put the address of your BitMap 
* structure in this variable. If not, this variable is 
“ignored and doesn’t have to be initialized 
a) 

BitMap : BitMapPtr; 
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(* the values describe the minimum and maximum sizes of your Windows. 
these matter only if you’ve chosen the WindowSizing Gadget option, 
which means that you want to let the User to change the size of 
this Window. You describe the minimum and maximum sizes that the 
Window can grow by setting these variables. You can initialize 
any one these to zero, which will mean that you want to duplicate 
the setting for that dimension (if MinWidth == 0, MinWidth will be 
set to the opening Width of the Window). 
You can change these settings later using SetWindowLimits(). 
If you haven’t asked for a Sizing Gadget, you don’t have to 
initialize any of these variables. 


aaa eee 


MinWidth : INTEGER; (* minimums *) 
MinHeight =: INTEGER; 
MaxWidth : CARDINAL; (* maximums *) 
MaxHeight : CARDINAL; 


(* the type variable describes the Screen in which you want 

* this Window to open. The type value can either be 

* CustomScreen or one of the system standard Screen Types such 
* as WBenchScreen. See the type definitions under the Screen 
* structure 


Type : ScreenFlagsSet; 


(* mamex Remember ==ae= *) 
(* this structure is used for remembering what memory has been allocated to 
* date by a given routine, so that a premature abort or systematic exit 
* can deallocate memory cleanly, easily, and completely 
a) 
RememberPtr = POINTER TO Remenber; 
Remember = RECORD 
NextRemember : RememberPtr; 
berSize : LONGCARD; 
2 ADDRESS; 








CONST 
(* these defines are for the COMMSEQ and CHECKIT menu stuff. If CHECKIT, 
* 1°11 use a generic Width (for all resolutions) for the CheckMark. 
* If COMMSEQ, likewise I’11 use this generic stuff 
CheckWidth = 19; 
CommWidth = 27; 
LowCheckWidth = 13; 
LowCommWidth = 16; 


(* these are the AlertNumber defines. if you are calling OisplayAlert() 
* the AlertNumber you supply must have the ALERT_TYPE bits set to one 
* of these patterns 
5) 

AlertType = 80000000H; 

RecaveryAlert = OOO00000H; (* the system can recover from this *) 

DeadEndAlert = 80000000H; (* no recovery possible, this is it *) 


(* When you’re defining IntuiText for the Positive and Negative Gadgets 
* created by a call to AutoRequest(), these defines wil] get you 

* reasonable-looking text. The only field without a define is the IText 
* field; you decide what text goes with the Gadget 


AutoFrontPen = BYTE(O); 


AutoBackPen = BYTE(1); 
AutoDrawMode = Jam2; 
AutoLeftedge = 6; 
AutaTopEdge = 3; 
AutolTextFont = NIL; 
AutoNextText = NIL; 


(* RawMouse and Qualifiers (Console OR IOCMP) *) 

SelectUp = CARDINAL(BITSET(IECodeLButton) + BITSET(IECodeUpPrefix)); 
SelectDown = IECodeLButton; 

MenuUp = CARDINAL(BITSET(IECodeRButton) + BITSET(IECodeUpPrefix)); 
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MenuDown = IECodeRButton; 

AltLeft = I€qualifierSet(IequalifierLalt}; 
AltRight = IEQualifierSet(IEqualifierRAlt}; 
AmigaLeft = IEQualifierSet(IEQual ifierLCommand) ; 
AmigaRight = IQualifierSet(IEQualifierRCommand} ; 
AmigaKeys = AmigaLeft + AmigaRight; 





(* Mise *) 

Cursorup = ACH; 
Cursorleft = 4FH; 
CursorRight = 4EH; 
CursorOown = 40H; 
KeyCodeQ = 10H; 
KeyCodeX = 32H; 
KeyCodeN = 36H; 
KeyCodeM == 37H; 
KeyCodeV = 34H; 
KeyCodeB = 35H; 





= Utility Functions =: 





aasanancs *) 


PROCEDURE AllocRemember(VAR RememberKey: RemenberPtr; Size: LONGCARD; 
Flags: MemRegSet): ADDRESS; 
(* AllocMem and create a link nade to make FreeMem easy. 


RememberKey - a pointer to struct Remember. Before call init ptr to NIL 
Size - the size in byte of the memory allocation 
Flags - the specifications for the memory allocation 


result - ptr to a block of memory or NIL if memory not allocated *) 


PROCEDURE CurrentTime(Seconds, Micros: ADDRESS); 
(* Get the current time values. 


Seconds - pointer to a LONG variable to receive the current seconds value 
Micros - pointer to a LONG variable to receive the current microseconds value 
oh 


PROCEDURE DisplayAlert(AlertNumber: LONGCARD; String: ADDRESS; 
Height: INTEGER): BOOLEAN; 
(* Create the display of an Alert message. 


AlertNumber - the number of this Alert Message. The only pertinent bits 
of this number are the AlertType bit(s). The rest of the 
number 1s ignored by this routine. 

String - pointer to the Alert message string, 

Height - minimum display lines required for your message 


result - If this 1s a DEADEND ALERT, FALSE is always the return value. 
If this 1s a RECOVERY ALERT. The return value will be TRUE if the 
User presses the left mouse button in response to your message, 
and FALSE if the User presses the right hand button is response to 
your text, or if the alert could nat be posted *) 


PROCEDURE DoubleClick(StartSecs, StartMicros: LONGINT; 
CurrentSecs, CurrentMicros: LONGINT): BOOLEAN; 
(* Test two values for double click timing. 


StartSecs - start of double-click time stamp seconds 
StartMicros - start of double-click time stamp microseconds 
CurrentSecs - end of double-click time stamp seconds 
CurrentMicros - end of double-click time stamp microseconds 


result - If the difference between the supplied timestamp values is within 
the double-click time range in the current set of Preferences, this 
function returns TRUE, else it returns FALSE *) 


PROCEDURE DrawBorder(VAR rastPort: RastPort; VAR border: Border; 
Lertoffset, TopOffset: INTEGER); 
(* Draws the specified Border into the RastPort. 
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rastPort - the RastPort to receive the border rendering 

border - a Border structure 

Left0ffset - the offset which be added to each vector’s x coordinate 
TopOffset - the offset which be added to each vector’s y coordinate *) 





PROCEDURE DrawImage(VAR rastPort: RastPort; VAR image: Image; 
Leftoffset, TopOffset: INTEGER); 
(* Draws the specified Image into the RastPort. 





rastPort - the RastPort to receive the image rendering 

image - an Image structure 

Leftofrset - the offset which be added to each image’s x coordinate 
TopOffset - the offset which be added to each image’s y coordinate *) 


PROCEDURE FreeRemember (VAR Rememberkey: RememberPtr; ReallyForget: BOOLEAN); 
(* Free memory allocated by calls to AllocRemenber(). 


Rememberkey - a painter to struct Remember. 
ReallyForget - FALSE = free only the link nodes, TRUE = free mem and nodes *) 


PROCEOURE IntuiTextLength(VAR IText: IntuiText): CARDINAL; 
(* Returns the length (pixel width) of an IntuiText. 


IText - an instance of an IntuiText structure 


result - returns the pixel-width of text specified by IntuiText data *) 


PROCEDURE PrintIText(VAR rastPort: RastPort; VAR IText: IntuiText; 
Leftoffset, TopOffset: INTEGER); 
(* Prints the text according to the IntuiText argument. 


rastPort - the RastPort destination of the text 
IText - an instance of the structure IntuiText 
Leftoffset - left offset of the IntuitText into the RastPort 
TopOffset - top offset of the IntuitText into the RastPort *) 


(* seneeememsemsosemene SCPECN FUNCCIONS sascumesnnsenesese= “) 


PROCEDURE CloseScreen(VAR screen: Screen); 
(* Clases an Intuition Screen. 


screen - the Screen to be closed *) 


PROCEDURE CloseWorkBench(): BOOLEAN; 
(* Closes the Workbench Screen. 


result - TRUE if workbench screen was closed successfully, FALSE if workbench 
was not open, or if it has windows open which are not WB drawers *) 


PROCEDURE DisplayBeep(screen: ScreenPtr); 
(* Flashes the video display. 


screen - pointer to a Screen or NIL to beep every screen *) 


PROCEDURE GetScreenData(Buffer: ADDRESS; Size: CARDINAL; Type: Screen lagsSet; 
VAR screen: Screen): BOOLEAN; 
(* Get copy of a screen data structure. 


Buffer - pointer to a buffer into which data can be copied 

Size - the size of the buffer provided, in bytes 

Type - the screen type, such as (WBenchScreen,CustomScreen) 

screen - ignored, unless type is CustomScreen, which results only in copying 
*size’ bytes from ‘screen’ to ‘buffer’ 


result - TRUE if successful, FALSE if standard screen of Type ‘type’ could 
not be opened. *) 


Module Intuition 
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PROCEDURE MakeScreen(VAR screen: Screen); 
(* Do an Intuition-integrated MakeVPort() of a custom screen. 


screen - Custom Screen structure *) 
PROCEDURE MaveScreen(VAR screen: Screen; DeltaX, DeltaY: INTEGER); 
(* Attempts to move the Screen by increments provided. 

screen - Screen structure 


DeltaX - amount to move the screen on the x-axis, should be set to 0 
DeltaY - amount to move the screen on the y-axis *) 


PROCEDURE OpenScreen(VAR newScreen: NewScreen): ScreenPtr; 
(* Open an Intuition Screen. 
newScreen - instance of a NewScreen structure 


result - if all is well, returns the pointer to your new Screen, if anything 
goes wrong, return NIL *) 


PROCEDURE OpenWorkBench(): ScreenPtr; 
(* Opens the WorkBench Screen. 
result - if WorkBench Screen opened succesfully or wasq already opened then 


returns ptr to Screen, else returns NIL 1f anything went wrong *) 


PROCEDURE RemakeDisplay; 
(* Remake the entire Intuition display, it does the equivilant of MakeScreen() 
for every Screen. *) 


PROCEDURE RethinkO{splay; 
(* The grand manipulator of the entire Intuition display. *) 


PROCEDURE ScreenToBack(VAR screen: Screen); 
(* Send the specified screen to the back of the display. 
screen - Screen structure *) 
PROCEDURE ScreenToFront(VAR screen: Screen); 
(* Brings the specified screen to the front of the display. 
screen - a Screen structure *) 
PROCEDURE ShowTitle(VAR screen: Screen; ShowIt: BOOLEAN); 
(* Set the Screen title bar display mode. 
screen - a Screen structure 
ShowIt - TRUE, FALSE describing whether to show or hide the scr title bar *) 
PROCEDURE WBenchToBack(): BOOLEAN; 
(* Sends the WorkBench Screen in back of all Screens. 
result - TRUE if the WorkBench screen was opened, otherwise FALSE *) 
PROCEDURE WBenchToFront(): BOOLEAN; 
(* Brings the WorkBench Screen in front of all Screens. 


result - TRUE if the WorkBench screen was opened, otherwise FALSE *) 


Window Functions 


(7 eeeeeeesmenee 





PROCEDURE ActivateWindow(VAR window: Window); 
(* Activate an Intuition Window. 
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window - a Window structure *) 
PROCEDURE BeginRefresh(VAR window: Window); 
(* Sets up a Window for optimized refreshing. 
window - Window structure which needs refreshing *) 
PROCEOURE ClearDMRequest(VAR window: Window): BOOLEAN; 
(* Clears (detaches) the OMRequest of the Window. 
window - Window from which the OMRequest is to be cleared 
result - if the DMRequest was not currently in use, zeroes out the DMRequest 


pointer in the Window and returns TRUE. If the DMRequest was in use 
doesn’t change the pointer and returns FALSE *) 


PROCEDURE ClearPointer(VAR window: Window); 
(* Clears the Mouse Pointer definition from a Window. 

window - Window to be cleared of its Pointer definition *) 
PROCEDURE CloseWindow(VAR window: Window); 
(* Closes an Intuition Window. 

window - a Window structure *) 
PROCEDURE EndRefresh(VAR window: Window; Complete: BOOLEAN); 
(* Ends the optimized refresh state of the Window. 

window - Window currently in optimized refresh mode 


Complete - TRUE or FALSE describing whether or not this Window is completely 
refreshed *) 





PROCEDURE ModifyIDCMP(VAR window: Window; IDCMPFlags: IDCMPFlagsSet); 
(* Modify the state of the Window’s IOCMPFlags. 


window - the Window structure containing the IOCMP Ports 

IOCMPFlags - the flag bits describing the new desired state of the IOCMP *) 
PROCEDURE MoveWindow(VAR window: Window; DeltaX, DeltaY: INTEGER); 
(* Ask intuition to move a Window. 

window - structure of the Window to be moved 


DeltaX - signed value describing how far to move the Window on the x-axis 
DeltaY - signed value describing how far to move the Window on the y-axis *) 


PROCEDURE OpenWindow(VAR newWindow: NewWindow): WindowPtr; 
(* Opens an Intuition Window. 
newWindow - instance of a NewWindow structure 
result - if all is well, returns the pointer to your new Window, if anything 
goes wrong returns NIL *) 
PROCEDURE RefreshWindowFrame(VAR window: Window); 
(* Ask intuition ta redraw your window border/gadgets. 
window - a Window structure *) 
PROCEDURE ReportMause(VAR window: Window; Boolean: BOOLEAN); 


(* Tells Intuition to report mouse movement. 


window - Window structure associated with this request 
Boolean - TRUE or FALSE value specifying whether to report mouse moves *) 
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PROCEDURE SetOMRequest(VAR window: Window; VAR DMRequester: Requester); 
(* Sets the OMRequest of the Window. 


window - Window from which the DMRequest is to be set 
DMRequester - a Requester structure *) 


PROCEDURE SetPointer(VAR window: Window; Pointer: ADDRESS; 
Height, Width: INTEGER; XOffset, YOffset: INTEGER); 
(* Sets a Window with its own Pointer. 


window - Window to receive this Pointer definition 

Pointer - pointer to the data definition of a Sprite 

Height - the height of the Pointer 

Width - the width of the sprite (must be less than or equal to sixteen) 
XOffset - the offset for your sperite from the Pointer position 
YOffset - the offset for your sperite from the Pointer position *) 


PROCEDURE SetWindowTitles(VAR window: Window; WindowTitle, ScreenTitle: ADDRESS); 
(* Sets the Window’s titles for both Window and Screen. 
window - your Window structure 


WindowTitle - pointer to null-term string or -1 or 0 
ScreenTitle - pointer to null-term string or -1 or 0 *) 


PROCEDURE SizeWindow(VAR window: Window; DeltaX, DeltaY: INTEGER); 
(* Ask Intuition to size a Window. 
window - the structure of the Window to be sized 


OeltaX - signed value describing how much to size the Window on the x-axis 
DeltaY - signed value describing how much to size the Window on the y-axis *) 


PROCEDURE ViewAddress(): ViewPtr; 
(* Returns the address of the Intuition View structure. 
result - the address of the Intuition View structure *) 
PROCEDURE ViewPortAddress(VAR window: Window): ViewPortPtr; 
(* Returns the address of a Window’s ViewPort structure. 
window - Window for which you want the ViewPort address 
result - returns the address of the ViewPort for that window *) 
PROCEDURE WindowLimits(VAR window: Window; MinWidth, MinHeight: INTEGER; 


MaxWidth, MaxHeight: CARDINAL): BOOLEAN; 
(* Set the minimum and maximua ts of the Window. 





window - Window structure 

MinWidth - the new min width, O if no change 
MinHeight - the new min height, O if no change 
MaxWidth - the new max width, 0 if no change 
MaxHeight - the new max height, O if no change 


result - returns TRUE if everything ok. If any of the parameter were out of 
range returns FALSE. The correct parameters will be changed. *) 


PROCEDURE WindowToBack(VAR window: Window); 
(* Ask Intuition to send this window to the back. 


window - the structure of the window to be sent to the back *) 
PROCEDURE WindowToFront(VAR window: Window); 
(* Ask Intuition to bring this Window to the front. 


window - the structure of the window to be brought to front *) 
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PROCEDURE AutoRequest(VAR window: Window; BodyText: IntuiTextPtr; 
PositiveText, NegativeText: IntuiTextPtr; 
PositiveFlags, NegativeFlags: IDCMPFlagsSet; 
Width, Height: INTEGER): BOOLEAN; 

(* Automatically build and get response from a Requester. 





window - a Window structure 

BodyText - an IntuiText structure or NIL 
PositiveText - an IntuiText structure or NIL 
NegativeText - an IntuiText structure or NIL 
PositiveFlags - flags for the IDCMP 
NegativeFlags - flags for the IDCMP 

Width - width of the requester for rendering 
Height - height of the requester for rendering 


result - returns TRUE or FALSE. See Intuition Docs for details *) 


PROCEDURE BuildSysRequest(VAR window: Window; BodyText: IntuiTextPtr; 
PositiveText, NegativeText: IntuiTextPtr; 
IDCMPF lags: IOCMPFlagsSe' 
Width, Height: INTEGER): 
(* Build and display a system Requester. 





ADDRESS; 





window - a window structure 

BodyText - an IntuiText structure or NIL 

PositiveText - an IntuiText structure or NIL 

NegativeText - an IntuiText structure or NIL 

IOCMPFlags - the IOCMP flags you want used for the init of the IOCMP of the 
Window containing this Requester 

Width - the width of the requester to be rendered 

Height - the height of the requester to be rendered 





result - If the Requester was successfully rendered in a Window, the value 
returned by this procedure is a pointer to the Window in which the 
Requester was rendered. If, however, the Requester cannot be rendered 
in the Window, this routine will have called DisplayAlert() before 
returning and will pass back TRUE if the user pressed the left mouse 
button and FALSE if the user pressed the right mouse button. 
FALSE = $00000000, TRUE = $00000001 *) 


PROCEDURE EndRequest(VAR requester: Requester; VAR window: Window); 
(* Ends the Request and resets the Window. 
requester - Requester to be removed 
window - window structure with which this Requester is associated with *) 
PROCEDURE FreeSysRequest(VAR window: Window) ; 
(* Frees resources used by a call to BuildSysRequest(). 
window - Window structure returned by a successful cal] to BuildSysRequest *) 
PROCEDURE InitRequester(VAR requester: Requester); 
(* Initialize a Requester structure. 
requester - a Requester structure *) 
PROCEDURE Request(VAR requester: Requester; VAR window: Window): BOOLEAN; 


(* Activates a Requester. 


requester - Requester to be displayed 
window - Window into which this Requester goes 


result - TRUE if requester successfully opened, otherwise FALSE *) 


(* aunnnenencsensnasen= Menu Functions s=sesees=s-==s0=<= *) 


PROCEDURE ClearMenuStrip(VAR window: Window); 
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(* Clears (detaches) the Menu strip from the Window. 
window - a Window structure *) 
PROCEDURE ItemAddress(VAR MenuStrip: Menu; MenuNumber: CARDINAL): MenuItemPtr; 
(* Returns the address of the specified MenuItem. 
MenuStrip - the first Menu in your menu strip 
MenuNumber - the value which contains the packed data that selects the menu 
and item and subitem. 
result - If MenuNumber = MenuNull this routine returns NIL else returns 
the address of the specified MenuNumber *) 
PROCEDURE OffMenu(VAR window: Window; MenuNumber: CARDINAL); 
(* Disable the given menu or menu item. 
window - a window structure 
MenuNumber - the menu piece to be disabled *) 
PROCEDURE OnMenu(VAR window: Window; MenuNumber: CARDINAL); 
(* Enables the given menu or menu item. 
window - a Window structure 
MenuNumber - the menu piece to be enabled *) 
PROCEDURE SetMenuStrip(VAR window: Window; VAR menu: Menu); 
(* Attaches the Menu strip to the Window. 


window - a Window structure 
menu - the first Menu in the Menu strip *) 


(HE OURO In 





POUCA RIERA ERR RR ERR RR AE RAR) 
(* The following procedures are implementations of usefull ’C’ macros *) 


(* for handling of menu numbers. sy) 
(UNCER RARER RAR RRR RRR RE RR RRR ERIE RRAR ARR RRREAA IA EEEE) 





PROCEDURE MENUNUM(n: CARDINAL): CARDINAL; 
(* Extract the ordinal menu number from the value. 
**C? macro: #define MENUNUM(n) (n & OX1F) 
n - @ packed menu code 
result - extracted menu number *) 
PROCEDURE ITEMNUM(n: CARDINAL): CARDINAL; 
(* Extract the ordinal item number from value. 
* gdefine ITEMNUM(n) ((n >> 5) & OxOO3F) 
n - a packed menu code 
result - extracted item number *) 
PROCEDURE SUBNUM(n: CARDINAL): CARDINAL; 
(* Extract the ordinal sub-item number from the value. 
* #define SUBNUM(n) ((n >> 11) & OxOO1F) 


n - @ packed menu code 


result - extracted sub-item number *) 


(* snsunenannnssensann= Gadget Functions s=ssssses==e=s=<=== *) 
PROCEDURE ActivateGadget(VAR gadget: Gadget; VAR window: Window; 


Regeust: RequesterPtr): BOOLEAN; 
(* Activate a (String) Gadget. 
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gadget - Gadget that you want activated 
window - a Window structure containing the Gadget 
Request - a Requester (may be NIL if this isn’t a Requester Gadget 


result - TRUE If the conditions above are met, else FALSE *) 


PROCEDURE AddGadget(VAR window: Window; VAR gadget: Gadget; 
Position: CARDINAL): CARDINAL; 
(* Add a Gadget to the Gadget list of the Window or Screen. 


window - Window to get your gadget 

gadget - new Gadget 

Position - position in the list for the new Gadget (starting from zero as 
the first position in the list) 


result - Returns the position of where the Gadget was actually added *) 


PROCEDURE AddGList(VAR window: Window; VAR gadget: Gadget; Position: CARDINAL; 
Numgad: CARDINAL; requester: RequesterPtr): CARDINAL; 
(* Add a linked list of gadgets to a Window or Requester. 


window - Window to get your Gadget 

gadget - the first Gadget to be added 

Position - position in the list for the new Gadget (starting from zero as 
the first position in the list) 

Numgad - the number of gadgets from the linked list to be added. $FFFF means 

to add the entire null-terminated list of gadgets 

requester - the requeter the gadgets will be added to if the ReqGadget flag 

is set for the first gadget in the list 


result - returns the position of where the first gadget was actually added *) 


PROCEDURE ModifyProp(VAR gadget: Gadget; VAR window: Window; 

requester: RequesterPtr; Flags: PropInfoF lagsSet; 

HorizPos, VertPot: CARDINAL; HorizBody, VertBody: CARDINAL) ; 
(* Modify the current parameters of a Proporitional Gadget. 





gadget - a Proportional Gadget 

window - the window containg the gadget or the window containg the requester 
containg the gadget 

requester - a Requester (may be NIL if this isn’t a requester gadget) 

Flags - value to be stored in the Flags variable of the Propinfo 

HorizPot - value to be stored in the HorizPot variable of the PropiInfo 

VertPot - value to be stored in the VertPot variable of the Propinfo 

HorizBody - value to be stored in the HorizBody variable of the PropInfo 

VertBody - value to be stored in the VertBody variable of the Propinfo *) 





PROCEDURE NewModifyProp(VAR gadget: Gadget; VAR window: Window; 
requester: RequesterPtr; Flags: PropInfoFlagsSet; 
HorizPot, VertPot: CARDINAL; 


HorizBady, VertBody: CARDINAL; NumGad: INTEGER); 
(* ModifyProp, but with Selective Refresh. 


gadget - a Propotional Gadget 

window - the window containg the gadget or the window containg the requester 
containg the gadget 

requester - a Requester (may be NIL if this isn’t a Requester Gadget) 

Flags - value to be stored in the Flags variable of the PropInfo 

HorizPot - value to be stored in the HorizPot variable of the PropInfo 

VertPot - value to be stored in the VertPot variable of the Propinfo 

HorizBady - value to be stored in the HorizSody variable of the Propinfo 

VertBady - value to be stored in the VertBody variable of the PropInfo 

NumGad - number of gadgets to be refresh after propgadget internals have 
been adjusted. $FFFFFFFF (-1) means "to end of list.* *) 


PROCEDURE Of fGadget(VAR gadget: Gadget; VAR window: Window; 
requester: RequesterPtr); 
(* Disables the specified Gadget. 
gadget - Gadget that you want disabled 
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window - a Window structure containing the Gadget or containing the requester 
which contains the gadget 
requester - a Requester (may be NIL if this isn’t a Requester gadget *) 


PROCEDURE OnGadget(VAR gadget: Gadget; VAR window: Window; 
requester: RequesterPtr); 
(* Enables the specified gadget. 





gadget - Gadget that you want enabled 

window - a Window structure containing the Gadget or containing the requester 
which contains the gadget 

requester - a Requester (may be NIL if this isn’t a Requester gadget *) 


PROCEDURE RefreshGadgets(VAR gadgets: Gadget; VAR window: Window; 
requester: RequesterPtr); 
(* Refresh (redraw) the Gadget display. 


gadgets - the first in the list of Gadgets wanting refreshment 
window - the Window containg the Gadget or its Requester 
requester - a Requester (ignored if Gadget is not attached to a Requester) *) 


PROCEDURE RefreshGList(VAR gadgets: Gadget; VAR window: Window; 
requester: RequesterPtr; NumGad: INTEGER); 
(* Refresh (redraw) a chosen number of gadgets. 





gadgets - first in the list of Gadgets wanting refreshment 

window - the Window containg the Gadget or its Requester 

requester - a Requester (ignored if Gadget is not attached to a Requester) 

NumGad - maximum number of gadgets to be refreshed. A value of -1 
will cause all gadgets to be refreshed from Gadget to the 
end of the list. A value of -2 will also do this, but if Gadget 
1s a Requester Gadget (REQGADGET) ALL gadgets in the requester 
will be refreshed (this is a mode compatible with vi.1 
RefreshGadgets() *) 


PROCEDURE RemoveGadget (VAR window: Window; VAR gadget: Gadget): INTEGER; 
(* Removes a Gadget from a Window. 


window - the Window containg the Gadget or the Requester 
gadget - the Gadget to be removed. 


result - returns the ordinal position of the removed gadget. If the gadget 
wasqn’t found in the appropriate list, or if there are no gadgets 
in the list retuns $FFFF (-1) *) 





PROCEDURE RemoveGList(VAR window: Window; VAR gadget: Gadget; 
NumGad: INTEGER): INTEGER; 


(* Removes a sublist of Gadgets from a Window. 





window - Window containing the Gadget or the Requester 
gadget - the list of Gadgets to be removed. 
NumGad - number of gadgets to be removed, or -1 remove to end of list 


result - returns the ordinal position of the removed Gadget. If the 
Gadget wasn’t found in the appropriate list, or if there are no 
Gadgets in the list returns SFFFF (-1) *) 


END Intuition. 
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* Madula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
eererrrecereerrererecerrr career rr avecvateevcanrenrirecar rere trerar terres 
* Name: Intuit{onBase.DEF Version: Asiga.00.00 , 
* Created: 11/27/86 Updated: 05/21/87 Author: Leon Frenkel * 
* Description: Intuition Library Base and utility functions. * 
pevoercv eres 





SRRERRRRNRRERERARRRR REAR RN ERENER EERE AE RERRRERERERRERER AERA), 
DEFINITION MODULE IntuitionBase; 


IMPORT System; (* Used by IMPLEMENTATION MODULE *) 
FROM SYSTEM IMPORT ADDRESS; 

FROM InputEvents IMPORT InputEvent; 

FROM Libraries IMPORT Library; 

FROM Ports IMPORT MsgPort; 

FROM Views IMPORT View; 


TYPE 
(* Be sume to protect yourself against someone modifying this data as 
* you look at it. This is done by calling: 
* lock := LockIBase(0). When done call UnlockIBase( lock). 
. 
(* IntuitionBase should never be directly modified by programs! *) 
IntuitionBasePtr = POINTER TO IntuitionBase; 





IntuitionBase = RECORD 
LibNode > Library; 
ViewLord : View; 


ActiveWindow : ADDRESS; (* WindowPtr *) 
ActiveScreen : ADDRESS; (* ScreenPtr *) 


(* The FirstScreen points to the frontmost Screen. Screens 
* are then maintained in a front to back order using 
* Screen.NextScreen 


FirstScreen : ADORESS; (* ScreenPtr *) 


Flags : LONGCARD; 

MouseY B INTEGER; (* mouse position relative to View*) 
MouseX : INTEGER; 

Seconds : LONGCARD; (* timestamp of most current 4 
Micros : LONGCARD; (* ‘input event 


(* Private part of Intuition Library data follows: *) 


END; 


PROCEDURE AlohaWorkbench(VAR WBPort: MsgPort); 
(* Make presence and departure of WorkBench known to Intuition. 


wePort - an initialize MsgPort structure where special communications 
are to take place *) 


PROCEDURE Intuition(VAR inputEvent: Inputevent); 
(* Main entry point into Intuition, where input events arrive and are dispatched 


inputEvents - the first input event in a linked list of InputEvent struc *) 


PROCEDURE LockIBase(LockNumber: LONGCARD): LONGCARD; 
(* Intuition user’s access to Intuition Locking. 


LockNumber - Intuition lock desired. Should be O (zero). 


result - returns a value which should be passed to UnlockIBase() to release 
lock *) 
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PROCEDURE UnlockIBase(Lock: LONGCARD); 
(* Surrender an Intuition lock gotten by LockIBase(). 


Lock - the value returned by LockIBase *) 


ENO IntuitionBase. 
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= Madula-2 Software Construction Set . 
* (c) 1986 by Leon Frenkel . 
poorenrrrorrcererrcerecerrrriarirerstareccrt ee terete race: tre terecs reir l ots 
* Name: I0Devices.DEF Version: Amiga.00.00 * 
* Created: 11/17/86 Updated: 05/07/87 Author: Leon Frenkel * 
* Description: Exec I/0 Devices Types/Functions. * 


prroerervcrrtsrrestestrtrcetoste sts atelier 
DEFINITION MODULE IODevices; 


FROM SYSTEM IMPORT ADDRESS, BYTE, LONGWORD; 
FROM Libraries IMPORT Library; 
FROM Ports IMPORT MsgPortPtr, Message; 


TYPE 
DevicePtr = POINTER TO Device; 
Device = RECORD 
ddLibrary : Library; 
END; 


UnitFlags = (UnitActive, UnitInTask); 
UnitFlagsSet = SET OF UnitFlags; 


UnitPtr = POINTER TO Unit; 
Unit = RECORD 








unitMsgPort : MsgPortPtr; (* queue for unprocessed messages *) 
unitflags : UnitFlagsSet; 
uni tpad BYTE; 
unitOpencnt : CARDINAL; (* number of active opens *) 
IOFlagsSet = SET OF [0..7]; 


ORequestPtr = POINTER TO IORequest; 
TORequest = RECORD 








joMessage : Message; 

joDevice : DevicePtr; (* device node pointer *) 

founit UnitPtr; (* unit (driver private) *) 

doCommand : CARDINAI (* device command *) 

joFlags : I0FlagsSet; 

joError BYTE; (* error or warning num *) 
END; 


IOStdReqPtr = POINTER TO TOStdReq; 
TOStdReq = RECORD 
joMessage : Message; 
foDevice : DevicePtr; 





(* device node pointer *) 





founit : UnitPtr;  (* unit (driver private) *) 

foCommand : CARDINAL; (* device command *) 

4oF lags 

foError = (* error or warning num *) 

foactual (* actual number of bytes transferred *) 


foLength : LONGCARD; (* requested nusber bytes transferred *) 

joData : ADDRES: (* points to data area *) 

jo0ffset : LONGCARD; (* offset for block structured devices *) 
END; 





CONST 
(* library vector offsets for device reserved vectors *) 
DevBeginI0 = -30; 
DevAbortIO = -36; 


(* ioFlags defined bits *) 
ToQuick = 





(* ioCommand device commands *) 
CudInvalid = 
CndReset = 
CmdRead == 
CndWrite = 
CmdUpdate = 


CadClear 
Cndstop 


0 
1 
2 
3 
4 
= 
6 
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cndStart = 7; 
CmdFlush = 8; 
CmdNonstd = 9; 


(7 0 Error Codes *) 

ToerrOpenFail = -1; (* device/unit failed to open *) 
ToerrAborted = -2; (* request aborted *) 
ToerrNoCnd = -3; (* command not supported *) 
I0ErrBadLength = -4; (* not a valid length *) 





PROCEDURE AddDevice(VAR device: Device); 
(* Add a device to the system. 


device - a properly initialized device node *) 
PROCEDURE CloseDevice(ioRequest: ADDRESS); 
(* Conclude access to a device. 
foRequest - pointer to an 1/0 request structure *) 
PROCEDURE OpenDevice(devName: ADDRESS; unitNumber: LONGINT; 
joRequest: ADDRESS; flags: LONGWORD): LONGINT; 
(* Gain access to a device. 
devName - requested device name 
unitNumber - the unit number to open on that device. The formal of the unit 
number 1s device specific 


joRequest - pointer to the I/0 request block to be returned with apropriate 
fields initialized 


flags - additional driver specific information. This is sometimes used 
to request opening a device with exclusing access 
result - zero if successful, else an error is returned *) 
PROCEDURE RemDevice(VAR device: Device): LONGINT; 
(* Remove a device from the system. 
device - a device node 
result - zero if successful, else an error is returned *) 
PROCEDURE AbortIO({oRequest: ADDRESS): LONGINT; 
(* Attempt to abort an in-progress 1/0 request. 
joRequest - pointer to an I/O request block 
result - zero if successful, else an error is returned *) 
PROCEDURE BeginIO(1oRequest: ADDRESS); 
(* Initiate an I/O request. The request will be synchronous or asynchronous 
depending on the device driver. 
joRequest - pointer to an I/O request block *) 
PROCEDURE CheckIO({oRequest: ADDRESS): ADDRESS; 
(* Get the I0 request status. 


joRequest - pointer to an I/O request block 


result - pointer to an IORequest or NIL if the I/O still in progress *) 
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PROCEDURE DoIO(ioRequest: ADDRESS): LONGINT; 
(* Perform an I/O command and wait for completion. 


joRequest - pointer to a properly initialized 1/0 request 


result - zero if successful, else an error is returned *) 


PROCEDURE SendIO({oRequest: ADDRESS) ; 
(* Initiate an I/0 command. 


joRequest - pointer to an 1/0 request *) 


PROCEDURE WaitIO({oRequest: ADDRESS): LONGINT; 
(* Wait for completion of an I/O request. 


joRequest - pointer to an I/O request block 


result - zero if successful, else an error is returned *) 


END IO0Devices. 
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(OREN DIORA IORI II IRI TRI IIIRIRIITII IST ITITTR 





* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
perreerreretrrererirerrere;ter recon trareetrscettcctrtrcritcetecettrertcesene” 
* Name: IODevicesUti] .DEF Version: Amiga.00.00 * 
* Created: 01/04/87 Updated: 01/16/87 Author: Leon Frenkel * 
* Description: Exec Support Procedures for Device 1/0. * 


srvoweencanennniponrevscrreseuretreter ttt fttcsetseter es’ tele i oer c loo) 
DEFINITION MODULE IODevicesUti1; 

FROM SYSTEM IMPORT ADDRESS; 

FROM I0Devices IMPORT IoStdReqPtr; 

FROM Ports IMPORT MsgPort; 

(*$L+*) 


PROCEDURE CreateExtIO(VAR ioReplyPort: MsgPort; size: LONGINT): ADDRESS; 
(* Create an I/O request block of a user-specified number of bytes. 


joReplyPart - an already initialize message port to be used for this 1/0 
request’s reply port. 
size - the size of the I/0 request to be created 
result - Pointer to the new jo request block or NIL if not enough memory 
or the reply port was not a valid port *) 
PROCEDURE CreateStdIO(VAR 1oReplyPort: MsgPort): IoStdReqPtr; 
(* Create a standard 1/0 request. 


joReplyPort - an already initialize message port to be used for this 1/0 
request’s reply port. 


result - Pointer to the new io request block or NIL if not enough memory 
or the reply port was not a valid port *) 


PROCEDURE DeleteExtIO(ioReq: ADDRESS); 

(* Return memory allocated for an extended 1/0 request. 
joReq - pointer ta the TORequest black to be freed *) 

PROCEDURE DeleteStdI0({oStdReq: IOStdReqPtr); 

(* Return memory allocated for a standard 1/0 request. 


joReq - pointer to the IOStdReq block whose resources are to be freed *) 


END IODevicesUti1. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
Perprerereereecerecerrcererrcevroortcereriicertvocrtcrrrttrertttrtttiet tatty 
* Name: KeyboardDevice. DEF Version: Aniga.00.00 . 
* Created: 11/26/86 Updated: 11/26/86 Author: Leon Frenkel * 
* Description: *keyboard.device* types. * 


preeetireettresiststrtiiiititr tse ee 


DEFINITION MODULE KeyboardDevice; 


FROM I0Devices IMPORT CmdNonStd; 


CONST 
KBOReadEvent = CadNonStd + 0; 
KBOReadMatrix = CmdNonStd + 1; 
KBOAddResetHandler = CmdNonStd + 2; 
KBORemResetHandler = CmdNonStd + 3; 
KBOResetHandlerDone = CadNonStd + 4; 


END KeyboardDevice. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
peeeeeereureucenrcacercrrceccvtrent:acesecccecsetl iret cert reer is. coool os 
* Name: KeyMapResource. DEF Version: Amiga.00.00 * 
* Created: 11/26/86 Updated: 11/26/86 Author: Leon Frenkel * 


* Description: "keymap.resource" and “console.device" keymap definitions * 
SORE RIO III TI ICI EI IOI IO TORI TOI II TI IIIT SII TTI IER ITY 


DEFINITION MODULE KeyMapResource; 


FROM SYSTEM IMPORT ADDRESS; 
FROM Lists IMPORT List; 
FROM Nodes IMPORT Node; 


TYPE 

KeyMapPtr = POINTER TO KeyMap; 

KeyMap = RECORD 
kmLoKeyMapTypes : ADDRESS; (* ptr to BYTE *) 
kmLoKeyMap : ADDRESS; (* ptr to LONGCARD *) 
kmloCapsable : AODRESS; (* ptr to BYTE *) 
kmloRepeatable : ADDRESS; (* ptr to BYTE *) 
kmHikeyMapTypes : ADDRESS; (* ptr to BYTE *) 


kmHiKeyMap : ADDRESS; (* ptr to LONGCARD *) 

kmHiCapsable : ADDRESS; (* ptr to BYTE *) 

kmHiRepeatable : ADDRESS; (* ptr to BYTE *) 
END; 


KeyMapNodePtr = POINTER TO KeyMapNode; 
KeyMapNode = RECORD 
knNode =: Node; (* including name of keymap *) 
knKeyMap : KeyMap; 
END; 


(* the structure ok keymap.resource *) 
KeyMapResourcePtr = POINTER TO KeyMapResource; 
KeyMapResource = RECORD 
krNode : Node; 
krList : List; (* a list of KeyMapNodes *) 
END; 


(* Key Map Types *) 
KeyMapCode = (KCShift, 

KCAIt, 

kcContro1, 

KcOownup, 

KCDead, 

keString, 

KCNop); 
KeyMapCadeSet = SET OF KeyMapCode; 


CONST 
KCNoQual = KeyMapCodeSet(); 
KCVanilla = KeyMapCodeSet(KCShift, KCAIt, KCControl}; 


TYPE 
(* Dead Prefix Bytes *) 
DeadPrefix = (DPMod, 
oP1, 
oP2, 
OPDead); 
DeadPrefixSet = SET OF DeadPrefix; 


CONST 
(* mask for index for Ist of two dead keys *) 
DP20IndexMask = DeadPref{xSet(OPMod. .0PDead) ; 
(* shift for factor for 1st of two dead keys *) 
OP20Facshift = 4; 


ENO KeyMapResource. 
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hes Modula-2 Software Construction Set * 
c) 1986 by Leon Frenkel i 
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* Name: LargeSets.DEF Version: Amiga.00.00 
Created: 06/29/87 Updated: 06/29/87 Author: Leon Frenkel 
Description: Implements machine indipendant large sets (> machine word) 
The set range for LargeSets is [0..65535] 
WARNING: Parameters to set functions are not checked for validity. 
Set functions which take two sets as parameters require that both sets 
have been created with the same range! * 
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DEFINITION MODULE LargeSets; 
FROM SYSTEM IMPORT ADDRESS; 
(*$L+*) 


TYPE 
LargeSet; (* LargeSet handle *) 


PROCEDURE CreateSet(VAR set: LargeSet; first, last: CARDINAL): BOOLEAN; 
(* Allocate memory for a LargeSet with the specified range. Set initialy empty. 


set - variable to store handle for LargeSet 


first - first element in range of set 
last - last element in range of set 


result - TRUE = allocated successfully, FALSE = set allocation failed *) 
PROCEDURE DeleteSet(set: LargeSet); 
(* Deallacate a LargeSet allocated with CreateSet(). 

set - handle of LargeSet to be deleted *) 
PROCEOURE SetInfo(set: LargeSet; VAR setAdr: ADDRESS; VAR setSize: CARDINAL); 
(* Return internal information about set, its address and size. 


set - handle of LargeSet 
setAdr - variable to store address of first byte of LargeSet 
setSize - variable to store size of LargeSet in bytes *) 


PROCEDURE SetRange(set: LargeSet; VAR first, last: CARDINAL); 
(* Return the range of a set, same as paramaters passed to CreateSet(). 


set - handle of LargeSet 


first - variable to store first element of set 
last - variable to store last element of set *) 


PROCEDURE In(set: LargeSet; element: CARDINAL): BOOLEAN; 
(* Test if element present in set. 


set - handle of LargeSet 
element - element to test 


result - TRUE = element in set, FALSE = element not in set *) 


PROCEOURE InclElement(set: LargeSet; element: CARDINAL); 
(* Include an element in set. 


set - handle of LargeSet 
element - element to include *) 
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PROCEDURE ExclElement(set: LargeSet; element: CARDINAL); 
(* Exclude an element from set. 


set - handle of LargeSet 

element - element to exclude *) 
PROCEDURE InclRange(set: LargeSet; first, last: CARDINAL); 
(* Include range of elements in set. 

set - handle to LargeSet 


first - first element of range to be included 
last - last element of range to be included *) 


PROCEDURE ExclRange(set: LargeSet; first, last: CARDINAL); 
(* Exclude range of elements in set. 
set - handle to Largeset 


first - first element of range to be excluded 
last - last element of range to be excluded *) 


PROCEDURE CopySet(dstSet, srcSet: LargeSet); 

(* Copy sreSet to dstSet. 
dstSet - destination for copy operation 
sreSet - source for copy operation *) 

PROCEOURE Union(dstSet, srcSet: LargeSet); 

(* Perform a union operation on two sets. Set operator: + 
dstSet - destionation for union operation 
srcSet - source for union operation *) 

PROCEDURE Diff(dstSet, srcSet: LargeSet); 

(* Perform a difference operation on two sets. Set operator: - 
dstSet - destionation for difference operation 
sreSet - source for difference operation *) 

PROCEDURE Intersection(dstSet, srcSet: LargeSet); 

(* Perform an intersection operation on two sets. Set operator: * 
dstSet - destionation for intersection operation 
sreSet - source for intersection operation *) 

PROCEDURE SymmetricDiff(dstSet, srcSet: LargeSet); 

(* Perform a symmetric difference operation on two sets. Set operator: 
dstSet - destionation for symmetric difference operation 


srcSet - source for symmetric difference operation *) 


END LargeSets. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel « 
AHHALHARNARHARNARAAAEAREAAAAMEEAREARAANERREEAEARERLERSEEANERUERSEORERRERSES 
* Name: Layers. DEF Version: Amiga.00.00 * 
* Created: 11/28/86 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: “layers. 1ibrary* functions. * 


BARRA ARR ER ARI RERERERE SIERRAS RRR ERISA RETR RETIRE RERR ARERR RE EEE EEE) 
DEFINITION MODULE Layers; 


FROM System IMPORT LayersBase; (* used by IMPLEMENTATION MODULE *) 

FROM Clipping IMPORT Layer, LayerPtr, LayerInfo, LayerInfoPtr, 
LayerInfoFlagsSet, ClipRect; 

FROM Graphics IMPORT BitMap, BitMapPtr; 

FROM Regions IMPORT Region, RegionPtr; 

FROM Rasters IMPORT RastPort; 


CONST 
LayersName = *layers.1ibrary*; 


PROCEDURE BeginUpdate(VAR 1: Layer): BOOLEAN; 
(* Prepare to repair dmaged layer. 
1 - a layer structure 
result - TRUE if damage list converted to ClipRect list sucessfully, FALSE 
4f list conversion aborted (probably out of memory) *) 
PROCEDURE BehindLayer(VAR 1: Layer): BOOLEAN; 
(* Put layer behind other layers. 
1 - a layer structure 
result - TRUE 1s operation successful or FALSE false if unsuccessful *) 


PROCEDURE CreateBehindLayer(VAR 11: LayerInfo; VAR bm: BitMap; x0, yO: LONGINT; 


x1, yl: LONGINT; flags: LayerInfoFlagsSet; 
ba2: BitMapPtr): LayerPt 
(* Create a new layer behind all existing layers. 








11 - LayerInfo structure 

bm - common BitMap used by all Layers 

xO - x component of upper left hand corner of layer 
yO - y component of upper left hand corner of layer 
x1 - X component of lower right hand corner of layer 
yl - y component of lower right hand corner of layer 
flags - various types of layers supported as bit sets. 
bm2 - optfonal Super BitMap ptr or NIL 


result - pointer to Layer structure if successful or NIL if not *) 


PROCEDURE CreateUpfrontLayer(VAR 14: LayerInfo; VAR bm: BitMap; xO, yO: LONGINT; 
x1, yl: LONGINT; flags: LayerInfoFlagsSet; 
bm2: BitMapPtr): LayerPtr; 

(* Create a new layer on top of existing layers. 





11 - LayerInfo structure 

bm - common BitMap used by al] Layers 

x0 - x component of upper left hand corner of layer 
yO - y component of upper left hand corner of layer 
x1 - x component of lower right hand corner of layer 
yl - y component of lower right hand corner of layer 
flags - various types of layers supported as bit sets. 
bm2 - optional Super BitMap ptr or NIL 


result - pointer to Layer structure if successful or NIL if not *) 
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PROCEDURE DeleteLayer(VAR 1: Layer): BOOLEAN; 
(* Delete layer from layer list. 


1 = @ layer structure 
result - TRUE 1s layer deleted friom the system, FALSE if layer not deleted*) 
PROCEDURE DisposeLayerInfo(VAR 114: LayerInfo); 
(* Return all memory for LayerInfo to memory pool. 
14 - a LayerInfo structure *) 
PROCEDURE EndUpdate(VAR 1: Layer; flag: BOOLEAN); 
(* Remove damage list and restore state of layer to normal. 
1 - a Layer structure 


flag - use TRUE if update was completed. The damage list is cleared 
use FALSE if update not complete. The ge list is retained *) 





PROCEDURE Instal1ClipRegion(VAR 1: Layer; VAR region: Region): RegionPtr; 
(* Install clip region in layer. 


1 - a layer structure 
region - a region 


result - pointer to the previous ClipRegion that was installed or NIL 
{f no previous clip region *) 
PROCEDURE LockLayer(VAR 1: Layer); 
(* Lock layer to make changes to ClipRects. 
] - a Layer structure *) 
PROCEDURE LockLayerInfo(VAR 11: LayerInfo); 
(* Lock the LayerInfo structure 
14 - a LayerInfo structure *) 
PROCEDURE LockLayers(VAR 11: LayerInfo); 
(* Lock a1] layers from graphics output. 
li - LayerInfo structure *) 
PROCEDURE MoveLayer(VAR 1: Layer; dx, dy: LONGINT): BOOLEAN; 
(* Move layer to new position in BitMap. 
1 - nonbackdrop Layer structure 
dx - delta to add to current x position 
dy - delta to add to current y position 
result - TRUE if operation successful, FALSE if failed (out of memory) *) 
PROCEDURE MoveLayerInFrontOf(VAR layertomove, targetlayer: Layer): BOOLEAN; 


(* Put layer in front of another layer. 


layertomove - layer which should be moved 
targetlayer -target layer in front of which to move layer 


result - TRUE if operation successful, FALSE if failed (out of memory) *) 
PROCEDURE NewLayerInfo(): LayerInfoPtr; 
(* Allocate and Initialize full LayerInfo structure. 


result - pointer to LayerInfo struc if successful or NIL if not enough mem *) 
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PROCEDURE ScrollLayer(VAR 1: Layer; dx, dy: LONGINT); 
(* Scroll around in a superbitmap, translate coordinates in non-superbitmap. 


1 - a Layer structure 
dx - delta to add to current x scroll value 
dy - delta to add to current y scroll value *) 


PROCEDURE SizeLayer(VAR 1: Layer; dx, dy: LONGINT): BOOLEAN; 
(* Change the size of this nonbackdrop layer. 

1 - a nonbackdrop layer structure 

dx - delta to add to current x size 


dy - delta to add to current y size 


result - TRUE if operation successful, FALSE if failed (out of 





mary) *) 


PROCEDURE SwapBitsRastPortClipRect(VAR rp: RastPort; VAR cr: ClipRect); 
(* Swap bits between common bitmap and onscured ClipRect. 


rp - RastPort structure 
cr - ClipRect structure to swap bits with *) 
PROCEDURE UnlockLayer(VAR 1: Layer); 
(* Unlock layer and allow graphics routines to use it. 
1 - Layer structure *) 
PROCEDURE UnlockLayerInfo(VAR 14: LayerInfo); 
(* Unlock the LayerInfo structure. 
14 - LayerInfo structure *) 
PROCEDURE UnlockLayers(VAR 11: LayerInfo); 
(* Unlock all layers from graphics output. Restart graphics output to layers 
that have been waiting. 
li - LayerInfo structure *) 
PROCEDURE UpfrontLayer(VAR 1: Layer): BOOLEAN; 
(* Put layer in front of all other layers. 
1 - a nonbackdrop layer structure 
result - TRUE if operation successful, FALSE if failed (out of memory) *) 
PROCEDURE WhichLayer(VAR 11: LayerInfo; x, y: LONGINT): LayerPtr; 
(* Which layer is this point in? 
14 - LayerInfo structure 
x - x component af coordinate 
y - y component of coordinate 
result - pointer to the topmost layer that this point is in, or NIL if this 
point is not in any layer *) 


END Layers. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
pepueuenronrenrenrencerran: rt rvtcrer: svesessetusrt rit irrccr scr esrel ces iocec ss 
* Name: Libraries.OEF Version: Amiga.00.00 * 
* Created: 11/15/86 Updated: 12/31/86 Author: Leon Frenkel * 
* Description: Exec Libraries Types/Functions. * 


prrveveu perccetettetttrt ttre sec icere tists eee 
DEFINITION MODULE Libraries; 


FROM SYSTEM IMPORT BYTE, ADDRESS; 
FROM Nodes IMPORT Node; 


CONST 
LibVectSize = 6; (* size of library vector entry *) 
LibReserved = 4; (* vectors reserved for special library functions *) 
LibBase = -LibVectSize; (* base adr of library *) 
LibUserDef = (LibBase - (LibReserved * LibVectSize)); 
LibNonstd = LibUserDef; (* first user defined library function *) 





Libopen 








= - 6; (* Open library vector *) 
LibClose = (* Close library vector *) 
LibExpunge = (* Expunge library vector *) 
Libextrunc = -24; (* reserved library vector *) 
TYPE 


LibFlags = (LibSumming, (* we are currently checksumming *) 
LibChanged, (* we have just changed the library *) 
LibSumUsed, (* set if we should bother to sum *) 
LibDelExp); (* delayed expunge *) 


LibFlagsSet = SET OF LibFlags; 


LibraryPtr = POINTER TO Library; 
Library = RECORD 


VibNode : Node; 
libFlags : LibFlagsSet; 
libpad : BYTE; 


ibNegSize : CARDINAL; (* number of bytes before library *) 
VibPosSize : CARDINAL; (* number of bytes after library *) 
VibVersion : CARDINAL; 
VibRevision : CARDINAL; 
libIdstring : ADORESS; 


Vibsum : LONGCARO; (* library checksum *) 
VibOpencnt : CARDINAL; (* number of current opens *) 
END; 


PROCEDURE AddLibrary(VAR library: Library); 
(* Add a library to the system. 


library - a properly initialized library structure *) 
PROCEDURE CloseLibrary(VAR library: Library); 
(* Informs the system that the library will no longer be in used. 
library - a brary node *) 
PROCEDURE MakeFunctions(destination, functtonArray, funcDispBase: ADDRESS): LONGCARD; 
(* Construct a jump table of the type used by resources, libraries, device. 
destination - the target address for the function jump table 
functionArray - pointer to an array of function pointer or displacements 
funcDispBase - pointer to the base about which all function displacements 


are relative. If zero then the functionArray contains abs ptrs 


result - size of the new table in bytes *) 
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PROCEOURE MakeLibrary(vectors, structure, init: ADDRESS; dataSize: LONGCARD; 
seglist: ADDRESS): LibraryPtr; 
(* This function is used for constructing a library vector and data area. 





vectors - pointer to an array of function pointer or function displacements. 
If the first word of the array is -1, then the array contains 
relative word displacements; otherwise, the array contains 
absolute function pointers. The vector list is terminated by a 
-1 (of the sane size as the pointers). 
structure - points to an *InitStruc* data region. If NIL then it will not 
be called. 
init - an entry point that will be called before adding the library to the 
system. If NIL it will not be called. When called it will be passed 
the libAddr in 00 and the segList parameter in AO. The result of 
the init function will be the result returned by MakeLibrary. 
dataSize - the size of the library data area, including the std library node 
seglist - ptr to a memory segment list (used by 00S) 


result - the refrence address of the library *) 


PROCEDURE OpenLibrary(1ibName: ADDRESS; version: LONGCARD): LibraryPtr; 
(* This function returns a pointer to a library previously installed in system. 


libName - the name of the library to open 
version - the version of the library required 


result - a library pointer for a successful open, else NIL *) 
PROCEDURE RemLibrary(VAR library: Library): LONGCARD; 
(* Remove a library from the system. 
library - pointer to a library node structure 
result - zero if successful, else an error number *) 
PROCEDURE SetFunction(VAR library: Library; funcOffset: INTEGER; 
funcEntry: ADDRESS): ADDRESS; 
(* Change a function vector in a library. 
library - the library to be changed 
funcOffset - the offset that FuncEntry should be put at 
funcEntry - pointer to new function 
result - pointer to the old function which occupied the vector *) 
PROCEDURE SumLibrary(VAR library: Library); 
(* Compute and check the checksum on a library. 
library - the library to be checksummed. If an old checksum does not 
match and the library has not been marked as changed then the 
system will alert the user. *) 


END Libraries. 


Module Libraries 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
Beenevsnuemrennnnrertrareresriterricrrrtcycreeotot rer ttttt ttt tito iii o es 
* Name: Lists.DEF Version: Amiga.00.00 * 
* Created: 11/15/86 Updated: 07/31/87 Author: Leon Frenkel * 
* Description: Exec List types/functions. * 


JERI III TITTIES TI AT ITT ATI TAI IIIA I IIIT IIR 
DEFINITION MODULE Lists; 


FROM SYSTEM IMPORT AODRESS, BYTE; 
FROM Nodes IMPORT Node, NodePtr, MinNodePtr; 


TYPE 
ListPtr = POINTER TO List; 
List = RECORD 
ThHead : NodePtr; (* points to the first node in the list *) 





Tntail NodePtr; (* is always NIL *) 
lhTailPred : NodePtr; (* points to the last node in the list *) 
lhType —«: BYTE; —(* defines the type of nodes within the list *) 
Ipad : BYTE;  (* structure alignment byte *) 

ENO; 


MinListPtr = POINTER TO MinList; 
MinList = RECORD 


mihHead : MinNodePtr; (* points to the first node in the list *) 

mlhtail : MinNodePtr; (* is always NIL *) 

mihTailPred : MinNodePtr; (* points to the last node in the list *) 
END; 


PROCEDURE AddHead(VAR list: List; VAR node: Node); 
(* Add a node to the head of a doubly linked list. 


list - the target list header 

node - the node to insert at head *) 
PROCEDURE AddTai1(VAR list: List; VAR node: Node); 
(* Add a node to the tail of a doubly linked list. 


list - the target list head 
node - the node to insert at tail *) 





PROCEDURE Enqueue(VAR list: List; VAR node: Node); 
(* Insert or append a node into a system que. 


list - the system que header 
node - the node to enque *) 


PROCEDURE FindName(start: ADDRESS; name: ADDRESS): NodePtr; 
(* Traverse a system list until a node with the given name is found 





start - a list header or list node to start the search at 
(if node this one 1s skipped) 
name - name string terminated with null 


result - a pointer to the node with the same name or NIL if not found *) 
PROCEDURE Insert(VAR list: List; VAR node: Node; listNode: NodePtr); 
(* Insert a node into a doubly linked list after a given node position. 
list - the target list header 


node - the node to insert 
listNode - the node after which to insert or NIL to insert at head *) 
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PROCEOURE NewList(VAR list: List); 

(* Initialize the header of a list. Perform the following: 
* list. IhHead = ADR(list.1hTail); 

* list. 1hTail = NIL; 

* list. 1hTailPred := ADR(list.1hHead) ; 






Vist - the target list header *) 
PROCEOURE RemHead(VAR list: List): NodePtr; 
(* Get @ pointer to the head node and remove it from the list. 
list - the target list header 
result - the node removed or NIL when empty list *) 
PROCEOURE Remove(VAR node: Node); 
(* Remove a node from a list. 
node - the nade to remove. *) 
PROCEDURE RemTail(VAR list: List): NodePtr; 
(* Get @ pointer to the tall node and remove it from the list. 
list - the target list header 
result - the node removed or NIL when empty list *) 


END Lists. 


Module Lists 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
MERGER EE ERE IOI IO IIIT ITI RIOT III III I III I IIIT IIR 
* Name: LongInOut .DEF Version: Amiga.00.00 * 
* Created: 07/22/87 Updated: 07/22/87 Author: Leon Frenkel * 


* Description: Standard LongInOut module for LONGINT and LONGCARD types. * 


FREI IOCTTI IIIGEII I IIIA IOI TIT IR ATI IIIT I ITT I A IIIS IIIS IIIT TI SIA IAA, 


DEFINITION MODULE Longindut; 
(*$L+*) 
VAR Done: BOOLEAN; (* result of previous operation *) 


PROCEDURE ReadLongInt(VAR x: LONGINT); 
(*read string and convert to long integer. Syntax: 
Jong integer = ["+*|"-"] digit (digit). 
Leading blanks are ignored. 
Done := "long integer was read"*) 


PROCEDURE ReadLongCard(VAR x: LONGCARD); 
(*read string and convert to long cardinal. Syntax: 
long cardinal = digit (digit). 
Leading blanks are ignored. 
Done := "long cardinal was read"*) 


PROCEDURE WriteLongInt(x: LONGINT; n: CARDINAL); 
(*write long integer x with (at least) n characters on file "out". 
If n 4s greater than the number of digits needed, 
blanks are added preceding the number™) 


PROCEDURE WriteLongCard(x: LONGCARD; n: CARDINAL); 
PROCEDURE WriteLongOct(x: LONGCARI CARDINAL) ; 
PROCEDURE WriteLongHex(x: LONGCARI : CARDINAL) ; 





END LongIndut.. 
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* Modula-2 Software Construction Set * 
* ¢) 1986 by Leon Frenkel * 
Prepeterereretrcretereretestiasteestattetrscetsceretecertcececertrerersrsess 
* Name: MathLibO.DEF Version: Amiga.00.00 * 





* Created: 12/24/86 Updated: 12/25/86 Author: Leon Frenkel * 
* : This is the standard math module as defined in appendix 2 * 
* ing in Modula-2" by N. Wirth. * 
* WARNING: This module requires that the *mathffp.library* has been opened * 
* * 








by the module "System". The *mathtrans.library* must also be 


opened by your application in order to use this module. 
MrrrerEEErr Setentiereetesises fettren ts tiest eter rteecec tc ecccsce reir irenas) 


DEFINITION MODULE MathLibO; 


FROM System IMPORT MathBase; (* used by IMPLEMENTATION MODULE *) 
FROM Libraries IMPORT LibraryPtr; 


CONST 
MathTransName = "mathtrans.library"; 


VAR 
MathTransBase : LibraryPtr; 


CONST 
(* The following are often needed mathematical constants *) 
pi = 3..14159265358979323846264338327950288; 
@ _= 2.71828182845904523536028747 135266250; 
sqrt2 = 1.41421356237309504880168872420969808; 
In2 = 0.69314718055994530941723212145817657; 


PROCEDURE arccas(x: REAL): REAL; 
(* Obtain the arccosine of a number. *) 


PROCEDURE arcsin(x: REAL): REAL; 
(* Obtain the arcsine of a number. *) 


PROCEDURE arctan(x: REAL): REAL; 
(* Obtain the arctangent of a number. *) 


PROCEDURE cos(x: REAL): REAL; 
(* Obtain the cosine of a number. *) 


PROCEDURE cosh(x: REAL): REAL; 
(* Obtain the hyperbolic cosine of a number. *) 


PROCEDURE DegToRad(x: REAL): REAL; 
(* Convert degrees to radians. *) 


PROCEDURE exp(x: REAL): REAL; 
(* Obtain the exponent (e**x) of a number. *) 


PROCEDURE In(x: REAL): REAL; 
(* Obtain the natural logarithm of a number. *) 


PROCEDURE log(x: REAL): REAL; 
(* Obtain the naparian logarithm (base 10) of a number. *) 


PROCEDURE power(x, y: REAL): REAL; 
(* Obtain the exponentiantion of two numbers. x raised to y power. *) 


Module MathLibd 
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PROCEDURE RadToDeg(x: REAL): REAL; 
(* Convert radians to degrees. *) 


PROCEDURE sin(x: REAL): REAL; 
(* Obtain the sine of a number. *) 


PROCEDURE sinh(x: REAL): REAL; 
(* Obtain the hyperbolic sine of a number. *) 


PROCEDURE sqrt(x: REAL): REAL; 
(* Obtain the square root of a number. *) 


PROCEDURE tan(x: REAL): REAL; 
(* Obtain the tangent of a number. *) 


PROCEDURE tanh(x: REAL): REAL; 
(* Obtain the hyperbolic tangent of a number. *) 


PROCEDURE real(x: LONGINT): REAL; 
(* Convert an integer into a real number. *) 


PROCEDURE entter(x: REAL): LONGINT; 
(* Convert a real number into an integer. *) 


END MathLibo. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
JERE IEEE SIRI IIE IO IIIS ICICI II TI RIOR RII RT RTE IERIE REE 
* Name: Memory. DEF Version: Amiga.00.00 * 
* Created: 11/17/86 Updated: 01/16/87 Author: Leon Frenkel * 
* Description: Exec Memory Types/Functions. * 


TOSI IRR IR RI RIOR IRR IER SERRE RARE RARE RE REAR REAR ETRE AT RARE EEE) 
DEFINITION MODULE Memory; 

FROM SYSTEM IMPORT ADDRESS, BYTE; 

FROM Nodes IMPORT Node; 


CONST 
(* Memory Requirement Types *) 
MemPublic = 0; (* Memory will be used by different tasks or interrup cade *) 





Memchip = 1; (* Memory within the range of the special Amiga chips *) 
MemFast = 2; (* Memory outside the range of the special Amiga chips *) 
MemClear = 16; (* Indicates clear memory to zero before returning *) 
MemLargest = 17; (* Get largest available memory block *) 

MemFatled = 


31; (* Returned by func AllocEntry when memory req fails *) 


(* Alignment rules for a memory block *) 
MemBlackSize = 8; 
MemBlackMask = MemBlockSize-1; 


TYPE 
MemReqSet = SET OF [0..31]; 


MemChunkPtr = POINTER TO MemChunk; 

MemChunk = RECORD 
mcNext : MemChunkPtr; (* pointer to next chunk *) 
mcBytes : LONGCARD; © (* chunk byte size *) 


0; 


MemHeaderPtr = POINTER TO MemHeader; 
MemHeader = RECORD 


mhNode : Node; 

mhAttributes : BITSET; (* characteristics of this region *) 

whFirst : MemChunkPtr; (* first free region *) 

nhLower : ADDRESS; (* lower memory bound *) 

mhUpper : ADDRESS; (* upper memory bound+1 *) 

ahFree : LONGCARD;  (* total number of free bytes *) 
END; 


MemEntryPtr = POINTER TO MemEntry; 
MemEntry = RECORD 
CASE : CARDINAL OF 
| 0: meReqs : MemRegSet; (* the AllocMem requirements *) 
meAddr : ADDRESS; (* the address of this memory region *) 





meLength : LONGCARD; (* the length of this memory region *) 
END; 


MemListPtr = POINTER TO MemList; 
MemList = RECORD 


mINode : Node; 
miNumEntries : CARDINAL; (* the number of entries in this struct*) 
mIME : ARRAY [0..0] OF MemEntry; (* the first entry *) 
END; 


Module Memory 
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PROCEDURE AddMemList(size: LONGCARD; attributes: MemReqSet; pri: LONGINT; 
base: ADDRESS; name: ADDRESS): LONGCARD; 
(* Add memory to the system free pool. 





size - the size (in bytes) of the memory area 

attributes - the attributes word that the memory pool will have 

pri - the priority for this memory. CHIP memory has a pri of -10, extended 
memory has a priority of 0 

base - the base of the new memory area 

name - the name that will be used in the memory header, or NIL if no name 
is provieded. This name is not copied so it must remain valid for 
as long as the memory header is in the system. 





result - error *) 


PROCEDURE AllocAbs(byteSize: LONGCARD; location: ADDRESS): ADDRESS; 
(* Allocate at a given location. 


byteSize - the size of the desired block in bytes 
Jocation - the address where the memory is MUST be 


result - a pointer to the allocated free block or NIL if not allocated *) 


PROCEDURE Allocate(VAR freeList: MemHeader; byteSize: LONGCARD): ADDRESS; 
(* Allocate a block of memory. 


freelist - the memory list header 
byteSize - the size of the desired block in bytes 


result - a pointer to the just allocated free block, returns NIL if no 
free regions large enough to satisfy the request *) 


PROCEDURE AllocEntry(memList: ADDRESS): ADDRESS; 
(* Allocate many regions of memory. 


memList - a pointer to a MemList structure filled in with MemEntry structures 


result - a different MemList filled in with the actual memory allocated. 

If enough memory cannot be obtained, then the memory that was 
allocated is freed. The result is the *meReqs* field of the 
allocation which failed and the MemFailed bit 1s also set. Example: 
menkey := AllocEntry(menTable) ; 
IF MemFailed IN MemReqSet(memKey) THEN 

(* Abort no memory *) 

IF MemChip IN MemReqSet(memkey) THEN 

WriteString(*No CHIP Memory!"); 
ELSIF MemFast IN MemReqSet(memKey) THEN 








WriteString(*No FAST Memory!"); 
END; 
HALT; 
END; 
(* prograi * 
Freeentry(memkey); (* Release memory *) *) 





PROCEDURE AllocMem(byteSize: LONGCARD; requirements: MemReqSet): ADDRESS; 
(* Allocate memory given certain requirements. 


byteSize - the size of desired block in bytes. This number is rounded up to 
the next larger block size for the actual allocation 
requirements - the type of memory block to allocate 
result - a pointer to the allocated free block. If block could not be 
allocated return NIL *) 
PROCEDURE Avai1Mem(requirements: MemRegSet): LONGCARD; 
(* Memory available given certain requirements. 


requirements - a requirements mask as specified in AllocMem 


result - total free space remaining *) 
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PROCEDURE CopyMem(source, dest: ADDRESS; size: LONGCARD); 
(* General purpose memory copy routine. 


source - a pointer to the source data region 
dest - a pointer to the destination data region 
size - the size (in bytes) of the memory area *) 








PROCEDURE CopyMemQuick(source, dest: ADDRESS; size: LONGCARD); 
(* Optimized memory copy routine. Restrictions: the source and dest pointers 
must be longword aligned, the size must be a multiple of longwords. 


source - a pointer to the source data region, long aligned 
dest - a pointer to the destination data region, long aligned 
size - the size (in bytes) of the memory area *) 


PROCEDURE Deallocate(VAR freeList: MemHeader; memoryBlock: ADDRESS; 
byteSize: LONGCARD); 
(* Deallocate a block of memory. 


freeList - the free list 


memoryBlock - memory black to return 
byteSize - the size of the desired block in bytes *) 


PROCEDURE FreeEntry(memList: ADDRESS); 
(* Free many regions of memory. 


memList - pointer to a structure filled in with memEntry structures *) 


PROCEDURE FreeMem 
(* Deallocate wit! 





moryBlock: ADDRESS; byteSize: LONGCARD); 
‘nowledge. 





memoryBlock - memory block to free 
byteSize - the size of the block in bytes *) 


PROCEDURE InitStruct(initTable: ADDRESS; memory: ADDRESS; size: CARDINAL); 
(* Initialize memory from a table. The format for the initTable is described 
in detail in the autodocs. 


initTable - the begining of the commands and data to init memory with. Must 
be on an even boundary unless only byte initialization is done 
memory - the begining of the memory to initialize. Must be on an even 
boundary {f size 1s specified 
size - the size of memory, which 1s used to clear it before initializing 
via initTable. If the size 1s zero memory is not cleared *) 


PROCEDURE TypeOfMem(address: ADDRESS): MemRegSet; 
(* Determine attributes of a given memory address. 
address - a memory address 


result - returns with the bits set which describe the memory block, returns 
empty set (}, if the address 1s not in known RAM *) 


END Memory. 


Module Memory 
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(PERRRRR RARER RRR RRAR ARR RERRARIRRERARASEREREREESAERS RE REEEASASIIATAS SIRES 


* Modula-2 Software Construction Set * 
i (c) 1986 by Leon Frenkel * 
seepeenneneretnnrenrrer: sc ivvterr:srestc ser ssterrttrrcirtr ceric rerio cot o a 
* Name: MiscResource.DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 11/29/86 Author: Leon Frenkel * 
* Description: Amiga Misc resource. * 


JER EI EI ISI III ICI II ITI IT IO II II III III TTI IIT II IIIT IT III III II III ITY, 
DEFINITION MODULE MiscResource; 
FROM Libraries IMPORT Library, LibBase, LibVectSize; 


CONST 
MiscName = "misc.resource"; 


MRSerialPort = 0 
MRSerialBits) = 1; 
=2 
=3 


MRParallelPort 
MRParallelBits 


NumMRTypes = 4; 


TYPE 
MiscResourcePtr = POINTER TO MiscResource; 
MiscResource = RECORD 


mrLibrary : Library; 
mrAllocArray : ARRAY [0..NumMRTypes-1] OF LONGCARD; 
END; 


CONST 
MRA1locMiscResource = LibBase; 
MRFreeMiscResource » LibBase + LibVectSize; 


END MiscResource. 
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* Name: NarratorDevice. DEF Version: Amiga.00.00 * 
* Created: 11/27/86 Updated: 01/17/87 Author: Leon Frenkel * 
* Description: *narrator.device" types. * 


reeterietereerseereeteeeress 





NARNA REAM SERERERERSRRREASRRATARERAAERAE HERES) 


DEFINITION MODULE NarratorDevice; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 


FROM I0Devices IMPORT I0StdReq; 


Awe 
Le 


can’t allocate memory *) 

can’t open audio device *) 

error in MakeLibrary call *) 

unit other than 0 *) 

can’t allocate audio channel(s) *) 
unimplemented command *) 

read for mouth without write first *) 
can’t open, deferred expunge bit set *) 
Phoneme code spelling error *) 

rate out of bounds *) 

pitch out of bounds *) 

sex not valid *) 

mode not valid *) 

sampling frequency out of bounds *) 


volume 


out of bounds *) 


(* Input parameters and defaults *) 

(* default pitch *) 

(* default speaking rate (wpm) *) 
(* default volume (full) *) 





laturalFO; (* 





fe 


(* default sampling frequency (Hz) *) 
*) 


ale vocal tract *) 


(* natural pitch contours *) 
(* monotone *) 
(* default sex *) 





CONST 
(* Error Codes *) 
NONOMem == -2; 
NONOAUdLib = -3; 
NOMakeBad == -4; 
NDUNItErr = -5; 
NOCantAlloc = -6; 
NDUnimp] == -7; 
NONOWrite = -8 
NOExpunged = -9; 
NOPhonErr = -20; 
NORateErr = -21; 
NDPitchErr = -22; 
NOSexErr = -23; 
NOModeErr = -24; 
NOFregérr = -25; 
NOVOlErr = = -26; 
DefPitch » 110; 
DefRate = 150; 
DefVol == 64; 
DefFreq = 22200; 
Male = 0; 
Fenale = 1; 
NaturalFO = 0; 
RoboticFO = 1; 
DefSex = M 
DefMode = N 
(* Parameter bounds *) 
MinRate = 4 
MaxRate = 
MinPitch = 
MaxPitch = 
MinFreq = 
MaxFreq = 
MinVol = 0; 
MaxVol = 64; 


maximum 


default made *) 


speaking rate *) 
speaking rate *) 
pitch *) 

ptch *) 

sampling frequency *) 
sampling frequency *) 
volume *) 

volume *) 


Module NarratorDevice 
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TYPE 
(* Standard Write request *) 
narratorrbPtr = POINTER TO narratorrb; 
narratorrb = RECORD 





message : I0StdReq; (* standard IORB *) 

rate CARDINAL; (* speaking rate (words/minute) *) 
pitch CARDINAL; (* baseline pitch in Hertz *) 
mode CARDINAL; (* pitch mode *) 

sex CARDINAL; (* sex of voice *) 


chmasks : ADDRESS; (* pointer to audio alloc maps *) 
nmmasks : CARDINAL; (* number of audio alloc maps *) 
volume : CARDINAL; (* volume. O (off) thru 64 *) 
sampfreq : CARDINAL; (* audio sampling freq *) 
mouths: BYTE; (* 1f non-zero, generate mouths *) 





chanmask : BYTE; (* which ch mask used (internal) *) 
numchan : BYTE; (* num ch masks used (internal) *) 
pad 2 BYTE; (* for alignment *) 

END; 


(* Standard Read request *) 
mouthrbPtr = POINTER TO mouthrb; 
mouthrb = RECORD 
voice : narratorrb; (* Speech IORB *) 


width : BYTE; (* Width (returned value) *) 
height : BYTE; (* Height (returned value) *) 
shape : BYTE; (* Internal use, do not modify *) 
pad: BYTE; (* For alignment *) 

END; 


END NarratorDevice. 
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™ Modula-2 Software Construction Set = 
i (c) 1986 by Leon Frenkel bo! 
JIC C IIIS ZOU ICI EI ITE IOC RI RITE I IIIT II ITER RI RIOR RI REI RETR REE 
* Name: Nodes.DEF Version: Amiga.00.00 4 
* Created: 11/15/86 Updated: 01/16/87 Author: Leon Frenkel + 





* Description: 
pevseosnuperess 





Node 


eran 





sean ee 





sttneanennnananaeeenennnnnés 
DEFINITION MODULE Nodes; 
FROM SYSTEM IMPORT ADDRESS, BYTE; 
TYPE 
(* normal node *) 


NadePtr = POINTER TO Node; 
Node = RECORD 


InSucc : NodePtr; (* ptr to next node in the list *) 
InPred : NodePtr; (* ptr to previous node in the list *) 
Intype : BYTE; — (* defines the type of the node *) 

InPri: BYTE; (* specifies the priority of the node *) 





InName : ADDRESS; (* points the name of the node or NIL *) 
END; 

(* stripped node, no type checking is possible *) 
MinNadePtr = POINTER TO MinNode; 
MinNode = RECORD 

minSuce : MinNodePtr; 

minPred : MinNodePtr; 

END; 


CONST 
(* Node Types *) 
NTUnknown = BYTE(0); 


NTTask = BYTE(1); 
NTInterrupt = BYTE(2); 
NTOevice = BYTE(3); 
NTMsgPort = BYTE(4); 
NTMessage = BYTE(5); 
NTFreeMsg = BYTE(6); 
NTReplyMsg = BYTE(7); 
NTResource » BYTE(8); 
NTLibrary = BYTE(9); 
NTMemory = BYTE(10); 
NTSoftInt = BYTE(11); 
NTFont = BYTE(12); 
NTProcess = BYTE(13); 


NTSemaphore = BYTE(14); 
NTSignalSem = BYTE(15); 


END Nodes. 
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* Nodula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
pepeppnnepnreserrenrrennre si rcvorreserrctartrenttrertttor te / i tti icc it coc 
* Name: Paralle1Device. DEF Version: Amiga.00.00 * 
* Created: 11/27/86 Updated: 05/08/87 Author: Leon Frenkel * 
* Description: *parallel.device* types. * 


FOC ITER I IIE TOI TOIT IT TIOI ITI IIR III RI IIR II TTI TT IIIT I III IIIT II IIIT ITY 


DEFINITION MODULE ParallelDevice; 


FROM IOQDevices IMPORT CmdNonStd, IOStdReq; 


CONST 
ParallelName = “parallel.device"; 


POCmdQuery = CmdNonStd + 0; 
POCmdSetParams = CmdNonStd + 1; 


TYPE 
TOPArrayPtr = POINTER TO IOPArray; 
TOPArray = RECORD 
PTermArrayO 
PTermArrayl 
END; 





CONST 
(* IOStdRequest.1oFlags := IOFlagsSet( } *) 
ToParQueued = 6; (* rqst-queued bit *) 
TOParAbort «= 5; (* rqst-aborted bit *) 
ToParActive = 4; (* rqst-qued-or-current bit *) 


TYPE 
ParFlags = (PFO, 
ParEOFMode, (* EOF mode enabled bit *) 


PF2, 
ParRadBoogie, (* (not yet implemented) *) 
PFA, 
ParShared, (* non-exclusive access bit *) 
PF, 
PF7); 

ParFlagsSet = SET OF ParFlags; 


ParStatus = (IOPTPSel, (* printer selected bit *) 
TopTPaperOut, (* paper out bit *) 
TopTPBusy,  (* printer in busy toggle bit *) 
IOPTRWOir,  (* readaO, writes bit *) 
OPTS, IOPTS, IOPT6, IOPT7); 

ParStatusSet = SET OF ParStatus; 


JOGA 





prrtttretittte ey 


(* CAUTION !! IF YOU ACCESS the parallel.device, you MUST (1!!!) use *) 
(* an IOExtPar-sized structure or you may overlay innocent memory !! *) 
rudreouaubeueerenbrrerertercrarrrrirrittrt ett irirttt ce eter ita ro) 
IOExtParPtr = POINTER TO TOExtPar; 
IOExtPar = RECORD 





ToPar : IostdReq; 
1oPExtFlags : LONGCARD; (* (not used) flag exntension area *) 
joStatus : ParStatusSet; (* status of parallel port *) 
joParFlags : ParFlagsSe! (* see ParFlags bit defs above *) 
joPTermArray : IOPArray; (* termination char array *) 
END; 
CONST 
ParErrOevBusy = 1; 
ParErrBufTooBig = 2; 
ParErrinvParam = 3; 
ParErrLineerr = 4; 
ParErrNot0pen «= 5; 
ParErrPortReset = 6; 
ParErriniterr = 7; 


END ParallelDevice. 
32-138 


(COSHOCTON IIIT TIO IIIS RIO I RII ITI II IIH 


* Modula-2 Software Construction Set * 
S (c) 1986 by Leon Frenkel * 
SOOO ODIO RIDES RETR RRR RRR RR EERE RR REESE RR ERE RR 
* Name: Ports.0EF Version: Amiga.00.00 * 
* Created: 11/17/86 Updated: 01/16/87 Author: Leon Frenkel * 
* Description: Exec Ports Types/Functions. * 


RREIRRR EERE TI RRRE RR RRIRREEIRE SEI ESIR EARS ERASE AEREERARSRREEERRAR ERATE REE) 


DEFINITION MODULE Ports; 


FROM SYSTEM IMPORT ADORESS, BYTE; 
FROM Nodes IMPORT Node; 

FROM Lists IMPORT List; 

FROM Tasks IMPORT TaskPtr; 


CONST 
(* mpFlags defs *) 
PrAction = BYTE(3); (* sub-field of mpFlags field *) 
PASignal = BYTE(O); (* signal a specified task on the arrival of a new msg *) 
PASoftInt = BYTE(1); (* cause the specified software interrupt *) 
PAIgnore = BYTE(2); (* perform no operation other than queuing the message *) 
TYPE 


MsgPortPtr = POINTER TO MsgPort; 
MsgPort = RECORD 





mpNode —-:_ Node; 

mpFlags : BYTE; 

mpSigBit : BYTE;  (* signal bit number *) 
mpSigTask : TaskPtr; (* task to be signalled *) 


mpMsglist : List;  (* message linked list *) 
END; 


MessagePtr = POINTER TO Message; 
Message = RECORD 


anNode : Node; 
mnReplyPort : MsgPortPtr; (* message reply port *) 
mnlength : CARDINAL; (* message len in bytes *) 
END; 


PROCEDURE AddPort(VAR port: MsgPort); 
(* Add @ message port to the system. 


port - pointer to a message port *) 
PROCEDURE FindPort(name: ADDRESS): MsgPortPtr; 
(* Find a given system message port. 
name - name of the port to find 
result - a pointer to the message port, or NIL if not found *) 
PROCEDURE GetMsg(VAR port: MsgPort): ADDRESS; 
(* Get next message from a message port. 
port - the receiver message port 
result - a pointer to the first message available. If there are no messages 
return NIL *) 
PROCEDURE PutMsg(VAR port: MsgPort; message: ADDRESS); 
(* Put a message to a message port. 


port - a message port 
message - a message (actual structure varies) *) 


Module Ports 
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PROCEDURE RemPort(VAR port: MsgPort); 
(* Remove a message port from the system. 


port - pointer to a message port *) 
PROCEDURE ReplyMsg(message: ADDRESS) ; 
(* Put a message to its reply port. 
message - a pointer to the message (actual structure varies) *) 
PROCEDURE WaitPort(VAR port: MsgPort): ADDRESS; 
(* Wait for a given port to be non-empty. 
port - a pointer to the message port 


result - a pointer to the first available message *) 


END Ports. 
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* Madula-2 Software Construction Set ; 
. (c) 1986 by Leon Frenkel x, 
JURIDIC OOO ITI ISI RII RI AIRE EE REE EER AE 
* Name: PortsUti].DEF Version: Amiga.00.00 4 
* Created: 01/04/87 Updated: 01/13/87 Author: Leon Frenkel : 





* Description: Exec Support Pr 


TORIC OI IO OOO IO OO IER 


edures for Ports. * 
SRRARARAAAA ARAN RRRAAERREERRRREEARAREAAEHA REE) 








DEFINITION MODULE PortsUti1; 


FROM SYSTEM IMPORT ADDRESS; 
FROM Ports IMPORT MsgPort, MsgPortPtr; 


(*$L+*) 


PROCEDURE CreatePort(name: ADDRESS; pri: INTEGER): MsgPortPtr 
(* Allocate memory and a signal for and then initialize a new message port. 


name - if public port then ptr to a null-term string, if private port then 
pass NIL 
pri - priority to be assigned to the new port 
result - ptr to a new message port or NIL if unsucessfull creation *) 
PROCEOURE DeletePort(VAR port: MsgPort); 
(* Frees up a message port as allocated by CreatePort(). 
port - port to be deleted *) 


ENO PortsUti1. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
sprpenenenenounenrcecerrra: ftrevecor:sreocrccretetcrrcretecttecccecects {cet 
* Name: PotgoResource.DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 11/29/86 Author: Leon Frenkel * 
* Description: Amiga "potgo.resource" definitions. * 


prreerravotewenverrsractte rec cerseste lite lot tere ose e ee 


DEFINITION MODULE PotgoResource; 
FROM Resources IMPORT ResourcePtr; 


CONST 
PatgoName = “potgo.resource"; 


VAR 
PotgoBase : ResourcePtr; 
PROCEOURE AllocPotBits(bits: BITSET): BITSET; 
(* Allocate bits in the potgo register. 
bits - a description of the hardware bits the application wiches to allocate 
result - the bits which were allocated *) 
PROCEDURE FreePotBits(allocated: BITSET); 
(* Free allocated bits in the potgo register. 
allocated - bits returned by AllocPotBits() *) 
PROCEDURE WritePotgo(word: BITSET; mask: BITSET); 
(* Write to the hardware potgo register. 


word - the data to write to the hardware potgo register 
mask - theose bits in word that are to be written *) 





END PotgoResource. 
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i Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: Preferences.DEF Version: Amiga.00.00 * 
* Created: 11/26/86 Updated: 11/01/87 Author: Leon Frenkel * 
* Description: Amiga Intuition Preferences types/functions. * 
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DEFINITION MODULE Preferences; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 
FROM System IMPORT IntuitionBase; (* Used by IMPLEMENTATION MODULE *) 
FROM TimerDevice IMPORT timeval; 


CONST 
(* these are the definitions for the printer configurations *) 
FileNameSize = 30; (* Filename size *) 


PointerSize = (1+ 16+1)* 2; (* Size of Pointer data buffer *) 


(* These defines are for the default font size. These actually describe the 
height of the defaults fonts. The default font type is the topaz 

font, which is a fixed width font that can be used in either 

eighty-colum or sixty-coluan mode. The Preferences structure reflects 

which is currently selected by the value found in the variable FontSize, 

which may have either of the values defined below. These values actually 

are used to select the height of the default font. By changing the 

* height, the resolution of the font changes as well. 


seas 


* 


TopazEighty = 8; 
TopazSixty = 9; 





TYPE 
PreferencesPtr = POINTER TO Preferences; 
Preferences = RECORD 


(* the default font height *) 
FontHet ght : BYTE; (* height for system default font *) 


(* constant describing what’s hooked up ta the port *) 
PrinterPort : BYTE; (* printer port connection *) 


(* the baud rate of the port *) 
BaudRate : CARDINAL; (* baud rate for th serial port*) 


(* various timing rates *) 

KeyRptSpeed : timeval; (* repeat speed for keybaord *) 
KeyRptOelay : timeval; (* Delay before keys repeat *) 
DoubleClick : timeval; (* Interval allowed between clicks*) 





(* Intuition Pointer data *) 
PointerMatrix t ARRAY [0. .PointerSize-1] OF CARDINAL; 





xoffset (* X-Offset for active *bit’ *) 
yorfset (* Y-Offset for active *bit’ *) 
colorl7 : CARDINAL; (* Colors for sprite pointer *) 
colorls : CARDINAL; 

colori? : CARDINAL; 

PointerTicks  : CARDINAL; (* Sensitivity of the pointer *) 
(* Workbench Screen colors *) 

colord 1 CARDINAL; (*###*#8#8288 RR KKRRRERRRERE) 
colorl : CARDINAL; (* Standard default colours *) 
color2 : CARDINAL; (* Used in the Workbench z) 
suiars P CARDINAL: (*###8#eeanaxaKKRRKRRRERR ERE) 


(* positioning data for the Intuition View *) 





ViewXarfset : BYTE;  (* Offset for top lefthand pos *) 
ViewYorfset : BYTE; (* X and Y dimensions *) 
ViewInitx : INTEGER; (* View inital x offset *) 
ViewInity : INTEGER; (* View inital y offset *) 
EnableCLI : INTEGER; (* CLI availability switch *) 
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CONST 
(* Workbench Ti 
LaceWB = BYTE( 


(* PrinterPort 
ParallelPrinte 
SerialPrinter 


(* printer configurations *) 
PrinterType : CARDINAL; (* printer type *) 
PrinterFilename : ARRAY [0..FileNameSize-1] OF CHAR; (* file*) 


(* print format and quality configurations *) 


PrintPiteh : CARDINAL; (* printer pitch *) 
Printquality : CARDINAL; (* print quality *) 
PrintSpacing : CARDINAL; (* number of lines per inch *) 


PrintLeftMargin : CARDINAL; (* left margin in characters *) 





PrintRightMargin : CARDINAL; (* right margin in characters *) 
PrintImage CARDINAL; (* positive or negative *) 
PrintAspect CARDINAL; (* horizontal or vertical *) 
PrintShade : CARDINAL; (* b&w, halt-tone, or color *) 


PrintThreshold : INTEGER; (* darkness ctrl for b/w dumps*) 


(* print paper descriptors *) 





PaperSize : CARDINAL; (* paper size *) 
PaperLength paper length in lines *) 
PaperType continuous or signle sheet *) 





(* Serial device settings: These are six nibble-fields in 
* three bytes (these look a little strange so the defaults 
* will map out to zero) 


SerRWBits : BYTE; (*upper = 8-number of read bits *) 
(*lower = 8-number of write bits *) 

SerStopBuf : BYTE; (*upper = number of stop bits-1 *) 
("lower = table value for ButSize *) 

SerParShk : BYTE; (*lower = valud for Parity setting *) 
("upper = value for handshake mode *) 

Lacews : BYTE; (* if workbench is to be interlaced*) 

(* temp file for printer * 

WorkName : ARRAY [0..FileNameSize-1) OF CHAR; 

(* for further system exapnsion *) 

padding : ARRAY [0..15] OF BYTE; 


END; 


interlace (use one bit) *) 
O1H) ; 


is) 
r= BYTE(OOH); 
= BYTE(O1H); 


(* BaudRate *) 


Baudl1l0 = 
Baud300 = 
Baud1200 = 
Baud2400 = 
Baud4800 = 
Baud9600 = 
Baud19200 = 
BaudMIOI = 


(* Papertype * 
FanFold = 00! 
Single = 80 


(* PrintPitch 
Pica = OOOH; 
Elite = 400H; 
Fine = 800H; 


(* Printqualit! 
Oraft = 000 
Letter = 100H; 


(* PrintSpacin 





) 





vie) 





ig *) 


SixLPI = OOOH; 


EightLPI = 200 
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(* PrintImage *) 
ImagePositive = OOH; 
ImageNegative = O1H; 


(* PrintAspect *) 
AspectHoriz = OOH; 
AspectVert = O1H; 


(* PrintShade *) 
Shades = OOH; 
ShadeGreyScale = O1H; 
ShadeColor = 02H; 


(* PaperSize *) 
UsLetter = OOH; 
USLegal = 10H; 
NTractor = 20H; 
WTractor = 30H; 
Custom = 40H; 


(* PrinterType * 


CustomName = OOH; 
AlphaP101 = O1H; 
Brother15XL = 02H; 
CBMMPS1000 = (03H; 
D4ab630 = 04H; 
DiabAdvO25 == 05H; 
D4abc150 = 06H; 
Epson = O7H; 
EpsondX80 = 08H; 
Okimate20 = 09H; 
QumeLP20 = OAH; 
HPLaserdet = OBH; 
HPLaserdetPlus = OCH; 


(* Serial Input Buffer Sizes *) 
SBuf512 = BYTE(OOH 
SBufl024 = BYTE(O1H 
SBuf2048 = BYTE(O2H); 
SBuf 4096 





= BYTE (03H); 
SBufB000 = BYTE(O4H); 
SBuf 16000 = BYTE(O5H 





(* Serial Bit Masks *) 
SReadBits = BYTE(OFOH); (* for SerRWBits *) 
SWriteBits = BYTE(OOFH); 


SStopBits = BYTE(OFOH); (* for SerStopBuf *) 
SBufSizeBits = BYTE(OOFH); 


SParityBits = BYTE(OFOH); (* for SerParShk *) 
SHShakeBits = 8YTE(OOFH); 


(* Serial Parity in upper nibble *) 
SParityNone = BYTE(O); 
SParityEven = BYTE(1 
SParityOdd = BYTE(2 





(* Serial HandShake Mode in lower nibble *) 
SHShakeXON = BYTE(O. 
SHShakeRTS = BYTE(1 
SHShakeNone = BYTE(2 





PROCEDURE GetDefPrefs(PrefBuffer: ADDRESS; Size: INTEGER): ADDRESS; 
(* Get a copy of the Intuition default Preferences. 


PrefBuffer - pointer to the memory buffer to receive your copy of preferences 
Size - the number of bytes in your PrefBuffer, the number of bytes you want 
copied from the system’s internal Prefrence settings 


result - returns your parameter PrefBuffer *) 
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PROCEDURE GetPrefs(PrefBuffer: ADDRESS; Size: INTEGER): ADDRESS; 
(* Get the current setting of the Intuition Preferenes. 


PrepBuffer - pointer to the memory buffer to receive your copy of preferences 
Size - the number of bytes in your PrefBuffer, the number of bytes you want 
copied from the systen’s internal Preference settings 


result - returns your parameter PrefBuffer *) 
PROCEDURE SetPrefs(PrefBuffer: ADDRESS; Size: INTEGER; Inform: BOOLEAN): ADDRESS; 
(* Set new preference values. 

prefauffer - pointer to the memory buffer which contains your desired setting 

for Intuition Preferences 
Size - the number of bytes in your PrefBuffer, the number of bytes you want 
capied to the system’s internal Preference settings 
Inform - whether you want the information of a new Preferences setting 
propogated to all windows 


result - returns your parameter PrefBuffer *) 


END Preferences. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: PrinterBase.DEF Version: Amiga.00.00 * 
* Created: 08/26/87 Updated: 08/26/87 Author: Leon Frenkel 3 
* Description: Printer device data definition. * 
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DEFINITION MODULE PrinterBase; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 
FROM AmigaDOS IMPORT BPTR; 

FROM Libraries IMPORT Library; 

FROM ParallelDevice IMPORT IOExtPar; 
FROM Ports IMPORT MsgPort; 

FROM Preferences IMPORT Preferences; 
FROM SerialDevice IMPORT IOExtSer; 
FROM Tasks IMPORT Task; 

FROM TimerDevice IMPORT timerequest; 


TYPE 
DeviceDataPtr = POINTER TO DeviceData; 
OeviceData = RECORD 


dddevice : Library; (* standard library node *) 
ddSegment  : ADORESS; (* AO when initialized *) 
ddExecBase : ADDRESS; (* A6 for exec *) 
ddCmdVectors : ADDRESS; (* command table for device cmds *) 
ddcmdBytes  : ADDRESS; (* bytes desc which cmds queue *) 
ddNumCommands : CARDINAL; (* number of cmds supported *) 

END; 


CONST 
PStkSize = 800H; 


PPCGPx = BYTE(0); 
PPCColor = BYTE(1); 


PPCBWAlpha = BYTE(O); (* black&white alphanumerics *) 
PPCBWGTx = BYTE(1); (* black&white graphics *) 
PPCColorGfx = BYTE(3); (* color graphics *) 


PPCBW = BYTE(1); (* only black&white *) 

PPCYMC = BYTE(2); (* only yellow/magenta/cyan *) 

PPCYMCBW = BYTE(3); (* yellow/magenta/cyan or black&white *) 
PPCYMCB = BYTE(4); (* yellow/magenta/cyan/black *) 





PPC4Color = BYTE(4); (* a flag for YMCB and BGRW *) 

PPCAdditive = BYTE(8); (* not yellow/magenta/cyan/black, *) 
(* but blue/green/red/white *) 

PPCWB = BYTE(9);  (* only black&white, O == BLACK *) 

PPCBGR = BYTE(OAH); (* blue/green/red *) 

PPCBGRWB = BYTE(OBH); (* blue/green/red or black&white *) 

PPCBGRW = BYTE(OCH); (* blue/green/red/white *) 


Module PrinterBase 
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TYPE 
PrinterExtendedDataPtr = POINTER TO PrinterExtendedData; 
PrinterExtendedData = 





RECORD 
pedPrinterName : ADDRESS; (* printer name, null terminated *) 
pedinit : ADDRESS; (* called after LoadSeg *) 
pedExpunge : ADDRESS; (* called before LoadSeg *) 
pedOpen : ADDRESS; (* called at OpenDevice *) 
pedClase : ADDRESS; (* called at CloseDevice *) 
pedPrinterClass = (* printer class *) 
pedColarclass (* color class *) 
pedMaxColumns : (* number of print columns available *) 
pedNumCharSets (* number of character sets *) 
pedNumRows : CARDINAL; (* number of raster rows in a raster dump *) 
pedMaxXOots ©: LONGCARO; (* number of dots maximum in a raster dump *) 
pedMaxYDots ©: LONGCARD; (* number of dots maximum in a raster dump *) 
pedXOatsInch © : CAROINAL; (* horizontal dot density *) 
pedYOotsInch (* vertical dot density *) 
pedCommands (* printer text command table *) 
pedDoSpecial =: (* special command handler *) 
pedRender R (* raster render function *) 





pedTimeoutSecs : LONGINT; (* good write timeout *) 
(* the following only exists if the segment version is 33 or greater *) 
pedsaitchars  : ADDRESS; (* conversion strings for the extended font *) 
END; 


PrinterSegmentPtr = POINTER TO PrinterSegment; 
PrinterSegment = RECORD 


psNextSegment : LONGCARD; (* (actually a BPTR) *) 


psrunAlert — : LONGCARD; (* MOVEQ #0,00 : RTS *) 
psVersion  : CARDINAL; (* segment version *) 
psRevision  : CARDINAL; (* segment revision *) 
psPEO : PrinterExtendedData; (* printe ext data *) 
END; 


PrinterDataPtr = POINTER TO PrinterData; 
PrinterData = RECORD 





pddevice : DeviceData; 

pdunit : MsgPort; (* the one and only unit *) 
pdPrinterSegment : BPTR; (* the printer specific segment *) 
pdPrinterType  : CARDINAL; (* the segment printer type *) 
pdSegmentOata ©: PrinterSegmentPtr; (* segment data struc *) 
pdPrintBur : ADDRESS; (* the raster print buffer *) 
pdPwrite : ADDRESS; (* the write function *) 
pdPBothReady —: ADDRESS; (* write function’s done *) 


CASE : CARDINAL OF (* port 1/0 request O *) 

| 0: pdPIORO : IOExtPar; 

| 1: pdSIORO : IOExtSer; 

END; 

CASE : CARDINAL OF (* and 1 for double buffering *) 
| 0: pdPIOR1 : TOExtPar; 

| 1: pdSIOR1 : Ioextser; 








END; 
pdTIOR timerequest; (* timer 1/0 request *) 
pdTORPort MsgPort; (* and message reply port *) 
pate : Task; (* write task *) 
pdstk ARRAY [0..PStkSize-1] OF BYTE; (* stack space *) 
pdFlags BYTE; (* device flags *) 
pdpad BYTE; 
pdPreferences _: Preferences; (* the latest preferences *) 
pdPWaitenabled : BYTE; (* wait function switch *) 
END; 


END PrinterBase. 
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* Modula-2 Software Construction Set 3 
* (c) 1986 by Leon Frenkel * 
tet scessecerersereraresettertrccrccracetccrreceacrss 
* Name: PrinterDevice.DEF Version: Amiga.00.00 a 
* Created: 11/27/86 Updated: 11/27/86 Author: Leon Frenkel - 
* Description: “printer.device* types. * 


MARANA ENAERERNARERINAE URE RIREEERRES RIES ERASERS RE REARRE REE REAR ERASE RTH) 
DEFINITION MODULE PrinterDevice; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 

FROM I0Devices IMPORT CmdNonStd, IOFlagsSet, IORequest, DevicePtr, UnitPtr; 
FROM Ports IMPORT Message; 

FROM Rasters IMPORT RastPortPtr; 

FROM Views IMPORT ColorMapPtr; 


CONST 
PRORawWrite = CmdNonStd + 0; 
PRDPrtCommand = CmdNonStd + 1; 
RPDDumpRPort = CmdNonStd + 2; 


(* printer command definitions *) 








aRIS = 0; (* ESCc reset Is0 *) 
aRIN (* ESC#1 initialize +++ *) 
aIND (* Esco If 1s0 *) 
aNEL (* ESCE return, 1f 1s0 *) 
aRI (* ESCM reverse If Iso *) 
aSGRO = 5; (* ESC[Om normal char set so *) 
aSGR3 = 6; (* ESC[3m italics on Iso *) 
aSGR23 = 7; (* ESC[23m italics off Iso *) 
aSGR4 = 8; (* ESC[4m underline on Iso *) 
aSGR24 = 9; (* ESC[24m underline off Iso *) 
aSGR1_ = 10; (* ESC[1m boldface on Iso *) 
aSGR22 = 11; (* ESC[22m boldface off Iso *) 
aSFC = 12; (* SGR30-39 set foreground color IS0 *) 
aSBC = 13; (* SGR40-49 set background color ISO *) 
aSHORPO = 14; (* ESC[Ow normal pitch DEC *) 
aSHORP2 = 15; (* ESC[2w elite on DEC *) 
aSHORP1 = 16; (* ESC(1w elite off DEC *) 
aSHORP4 = 17; (* ESC[4w condensed fine on DEC *) 
aSHORP3 = 18; (* ESC[3w condensed off DEC *) 
aSHORP6 = 19; (* ESC[6w enlarged on DEC *) 
aSHORP5 = 20; (* ESC[5w enlarged off DEC *) 
aDENG = 21; (* ESC[6*z shadow print on DEC (sort of) *) 
aDENS = 22; (* ESC[5*z shadow print off DEC *) 
aDEN4 = 23; (* ESC[4*z doublestrike on DEC *) 
aDEN3 = 24; (* ESC[3*z doublestrike off DEC *) 
aDEN2 = 25; (* ESC(2*z NLQ on DEC *) 
aDENL = 26; (* ESC[1*z NLQ off DEC *) 
aSUS2 = 27; (* ESC[2v superscript on +4 *) 
aSUS1 = 28; (* ESC[1Vv superscript off +++ *) 
aSUS4 = 29; (* ESC[4v subscript on +++ *) 
aSUS3 = 30; (* ESC[3v subscript off +44 *) 
aSUSO = 31; (* ESC[Ov normalize the line + 
aPLU = 32; (* ESCL partial line up 1s0 *) 
aPLD = 33; (* ESCK partial line down Iso *) 
aFNTO = 34; (* ESC(B US char set DEC *) 
aFNTL = 35; (* ESC(R French char set DEC *) 
aFNT2 = 36; (* ESC(K German char set DEC *) 
aFNT3 = 37; (* ESC(A UK char set DEC *) 
aFNT4 = 38; (* ESC(E Danish I char set DEC *) 
aFNT5 = 39; (* ESC(H Sweden char set DEC *) 
aFNT6 = 40; (* ESC(Y Italfan char set DEC *) 
aFNT7 = 41; (* ESC(Z Spanish char set DEC *) 
aFNTS = 42; (* ESC(J Japanese char set 444 *) 
aFNT9 = 43; (* ESC(6 Norweign char set DEC *) 
aFNT10 = 44; (* ESC(C Danish II char set + *) 
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aPROP2 = 45; (* ESC[2p proportional on + *) 
aPROP1 = 46; (* ESC[1p proportional off +++ *) 
aPROPO = (* ESC[Op proportional clear +++ *) 
aTsS = (* ESC[n E set proportional offset ISO *) 
aJFY5 = (* ESC[5 F auto left justify Is0 *) 
aJFY7 = 50; (* ESC[7 F auto right justify  IS0 *) 
aJFY6 = 51; (* ESC[6 F auto full justify Is0 *) 
aJFYO = 52; (* ESC[O F auto justify off Is0 *) 
aJFY3 = 53; (* ESC[3 F letter space (justify) ISO (special) *) 
aJFY1 = 54; (* ESC[1 F word fill(auto center) ISO (special) *) 
aVERPO = 55; (* ESC[Oz 1/8" line spacing +44 *) 
aVERP1 = 56; (* ESC[1z 1/6" line spacing +44 *) 
aSLPP = 57; (* ESC[nt set form length n DEC *) 
aPERF = 58; (* ESC[nq perf skip n (n>0) 444 *) 
aPERFO = 59; (* ESC{Oq perf skip off +++ *) 
alMS = 60; (* ESC#9 Left margin set +44 *) 
aRMS = 61; (* ESC#O Right margin set +44 *) 
aTMS = 62; (* ESC#8 Top margin set +44 *) 
aBMS = 63; (* ESC#2 Bottom marg set +44 *) 
aSTBM = 64; (* ESC[Pn1;Pn2r T&B margins DEC *) 
aSLRM = 65; (* ESC[Pn1;Pn2s L&R margin DEC *) 
aCAM = 66; (* ESC#@3 Clear margins +++ *) 
aHTS = 67; (* ESCH Set horiz tab 1s0 *) 
aVIS = 68; (* ESCJ Set vertical tabs 1s0 *) 
aTBCO = 69; (* ESC[Og Clr horiz tab Iso *) 
aTBC3. = 70; (* ESC[3g Clear all h tab Is0 *) 
aTBCL = 71; (* ESC[ig Clr vertical tabs Iso *) 
aTac4 «= 72; (* ESC[4g Clr all v tabs Iso *) 
aTBCALL = 73; (* ESC#4 Clrallh&vtabs +++ *) 
aTBSALL = 74; (* ESC#5 Set default tabs +44 *) 
EXTEND = 75; (* ESC[Pn*x extended commands +++ *) 

TYPE 


TOPrtCmdReqPtr = POINTER TO IOPrtCmdReq; 
TOPrtCmdReq = RECORD 











joMessage ©: Message; 
joDevice : DevicePtr; (* device not pointer *) 
founit :UnitPtr;  (* unit (driver private) *) 
joCommand : CARDINAL; (* device command *) 
joF lags : I0FlagsSet; 
joError : BYTE; (* error or warning num *) 
joPrtCommand : CARDINAL; (* printer command * 
joParn0 : BYTE; (* first command parameter *) 
joParal : BYTE; (* second command parameter *) 
joPara2 BYTE; (* third command parameter *) 
joParm3 : BYTE; (* fourth command parameter *) 

END; 

Special = (SpecialMi1Cols, (* DestCols specified in 1/1000" *) 
SpecialMi 1Rows, (* DestRows specified in 1/1000" *) 
SpectalFullCols, (* make DestCols maximum possible *) 
SpecialFullRows, (* make DestRows maximum possible *) 
SpecialFraccols, (* DestCols is fraction of FullCols *) 
SpecialFracRows, (* DestRows is fraction of FullRows *) 
SpecialCenter, (* center image *) 

SpecialAspect, (* ensure correct aspect ratio ~) 


SF8, SF9, SF10, SF11, (* reserved *) 
SF12, SF13, SF14, SF15); (* Density bits (described below) *) 
SpecialSet = SET OF Special; 


CONST 
SpectalDensityMask = SpectalSet(SF12..SF15}; (* masks out density bits *) 
SpecialDensityl = SpecialSet(SF12); (* lowest res *) 
SpecialDensity2 = SpecialSet(SF13); (* next res *) 
SpecialDensity3 = SpecialSet(SF12, SF13}; (* next res *) 
SpecialDensity4 © = SpecialSet(SF14}; (* highest res *) 
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TYPE 


IODRPReqPtr = POINTER TO IODRPReq; 


IODRPReq = RECORD 


joMessage : Message; 
joDevice : DevicePtr; 
joUnit > UnitPtr; 
joCommand =: CARDINAL; 
joF lags : IOFlagsSet; 
toError > BYTE; 
joRastPort : RastPortPtr; 
4oColorMap : ColorMapPtr; 
joModes + LONGCARD; 
doSrex : CARDINAL; 
doSrcyY : CARDINAL; 
YoSrceWidth : CARDINAL; 
joSrcHeight : CARDINAL; 
joDestCols : LONGINT; 
joDestRows : LONGINT; 
joSpecial =: SpecialSet; 
END; 
CONST 

POErrCancel . 

POErrNotGraphics - 

POErriInvertHam - 

POErrBadDimension . 

POErrDimensionOvflow = hg 

POErrinternalMemory = 6; (* 

PDErrBufferMemory = 


END PrinterDevice. 





C 
re 
( 
(* 
Ct 
(* 
(* 
(* 
(* 
(* 
(* 


device node pointer *) 
unit (driver private) *) 
device command *) 


error or warning num *) 
raster port *) 

color map *) 

graphics viewport modes *) 
source x origin *) 
source y origin *) 
source x width *) 
source y height *) 
destination x width *) 
destination y height *) 
option flags *) 


3 (* user canceled a printer timeout *) 
(* printer cannot output graphics *) 
(* cannot invert hold & modify print *) 

(* print dimensions illegal *) 

print dimensions too large *) 

no memory for internal variables *) 
; (* no memory for print buffer *) 


Module PrinterDevice 
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* Modula-2 Software Construction Set % 
33 (c) 1986 by Leon Frenkel * 
TOI IIE EI III ICTS ITT ITI IRI II II TTI III III I TI II III IIIT IIIT 
* Name: RandomNumbers.DEF Version: Amiga.00.00 Z 
* Created: 01/13/87 Updated: 01/13/87 Author: Leon Frenkel c 
* Description: Pseudo-Random Number Generator. Z 


Weoseel bndanubnrensubunverenronr reeset se: cnr err rtrttrrirrtrret resi ter isa) 
DEFINITION MODULE RandomNumbers; 
(*$L+*) 
VAR 
Seed: LONGCARD; (* The seed for the random number generator *) 
PROCEDURE Random(max: LONGCARD): LONGCARD 
(* Return a pseudo-random number between O and max-1. 
max - specifies the upper bounds of the random number range 


result - a random number in the specified range *) 


END RandomNumbers. 
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* Modula-2 Software Construction Set * 
(c) 1986 by Leon Frenkel : * 
A ARRARERR ARERR EERE RARER SERRA ROR ERERIERE ABER RITE RIRRIR RR REER RANE EERE RESEIEK 
* Name: Rasters.DEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 05/07/87 Author: Leon Frenkel * 
* Description: Graphics Raster types/functions. * 


SARNIA ARIRRRIAREREAEEE ARERR ASI ENER ERAS RRAREE RARE EERRS IRATE RRASARAR IERIE) 
DEFINITION MODULE Rasters; 
FROM SYSTEM IMPORT ADDRESS, BYTE; 


FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Graphics IMPORT BitMapPtr; 


TYPE 
DrawModeSet = SET OF [0..7]; 
CONST 
(* Drawing Modes *) 
Jam = DrawModeSet{ }; (* jam 1 color into raster *) 
Jam2 = DrawModeSet(0}; (* jam 2 colors into raster *) 


Complement = OrawModeSet(1}; (* XR bits into raster *) 
InversVid = DrawModeSet(2}; (* inverse video for drawing modes *) 


TYPE 

RasInfoPtr = POINTER TO RasInfo; 

RasInfo = RECORD 
Next: RasInfoPtr; (* used for dualpf *) 
BitMap : BitMapPtr; 
RxOffset : INTEGER;  (* scroll offsets in thsi BitMap *) 
RyOffset : INTEGER; 

END; 


TmpRasPtr = POINTER TO TmpRas; 
TmpRas = RECORD 
RasPtr : ADDRESS; 
Size: LONGINT; 


END; 
(* these are the flag bits for RastPort flags * 
RastPortFlags = (FrstOot, (* draw the first dot of this line ? *) 
OneDot, (* use one dot mode for drawing lines *) 
OBuffer, (* flag set when RastPorts are double-buffered*) 
AreaQutline, (* used by areafiller *) 
RPF4, 


NoCrossFi11, (* areafills have no crossovers *) 
RPF6, RPF7, 
RPFS, RPF9, 
RPF1O, RPF11, 
RPF12, RPF13, 
RPF14, RPF15); 
RastPortFlagsSet = SET OF RastPortFlags; 


RastPortPtr = POINTER TO RastPort; 
RastPort = RECORD 


Layer : ADDRESS; (* LayerPtr, circular refrence *) 
BitMap : BitMapPtr; 

AreaPtrn : ADDRESS; (* ptr to areafill patern *) 

TmpRas : TmpRasPtr; 

AreaInfo -: ADDRESS; (* AreaInfoPtr, circular refrence *) 
GelsInfo -: ADDRESS; + (* GelsInfoPtr, circular refrence *) 
Mask : BYTE; (* write mask for this raster *) 

FgPen 2 BYTE; (* foreground pen for this raster *) 
BgPen : BYTE; (* background pen *) 

AQPen : BYTE; (* areafill outline pen *) 

OrawMode ©: ‘DrawModeSet;(* drawing mode for fill, lines, text*) 
AreaPtSz BYTE; (* 2°n words for areafill pattern *) 
linpatent BYTE; (* current line drawing pattern preshift *) 
dummy BYTE; 

Flags RastPortFlagsSet; (* miscellaneous control bits *) 
LinePtrn BITSET;  (* 16 bits for textured lines *) 

cpx INTEGER; (* current pen x position *) 

cpy INTEGER; (* current pen y position *) 

minterms ARRAY [0..7] OF BYTE; 





Module Rasters 
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PenWidth INTEGER; 

PenHeight  : INTEGER; 

Font = ADDRESS; (* current font TextFontPtr, circular refrence *) 
AlgoStyle —: BYTE; (* the algorithmically generated style *) 
TxFlags 2 BYTE; (* text specific flags *) 

TxHeight  : CARDINAL; (* text height *) 

Txwidth : CARDINAL; (* text nominal width *) 

TxBaseline : CARDINAL; (* text baseline *) 

TxSpacing : INTEGER; (* text spacing (per character) *) 

RPUser > ADDRESS; 


Jongreserved : ARRAY [0..1] OF LONGCARD; 

wordreserved : ARRAY [0..6] OF CARDINAL; (* used to be a node *) 
reserved  : ARRAY [0..7] OF BYTE; (* for future use *) 
END; 





(* NOTE: *) 

(* there is only one style of clipping: raster clipping *) 

(* this preserves the continuity of jaggies regardless of clip window *) 
When drawing into a RastPort, if the ptr to ClipRect is nil then there *) 

(* is no clipping done, this 1s dangerous but useful for speed *) 


PROCEDURE AllocRaster(width, height: CARDINAL): ADDRESS; 
(* Allocate space for a bitplane. 


width - number of bits wide for bitplane 
height - number of rows in bitplane 


result - pointer to first word in bitplane, if unable to allocate space 
then NIL result will be returned *) 
PROCEDURE FreeRaster(p: ADDRESS; width, height: CARDINAL); 
(* Release an allocaed area to the system free memory pool. 
p - a pointer to a memory space returned as a result of a call to AllocRaster 


width - the width in bits of the bitplane 
height - number of rows in bitplane *) 


PROCEDURE InitRastPort(VAR rp: RastPort); 
(* Initialize raster port structure. 


rp - a RastPort structure *) 





PROCEOURE InitTmpRas(VAR tmpras: TmpRas; buffer: ADDRESS; size: LONGINT); 
(* Initialize area of local memory for usage by areafill, floodfill, text. 


tmpras - a TmpRas structure to be linked into a RastPort 
buffer - pointer to a contiguous piece of chip memory 
size - size in bytes of buffer *) 


PROCEDURE ScroliRaster(VAR rp: RastPort; dx, dy: INTEGER; 
xmin, ymin: INTEGER; xmax, ymax: INTEGER); 
(* Push bits in rectangle in raster around by dx, dy towards 0,0 inside rect. 


rp - a RastPort structure 

dx - integer that ma be positive, zero, or negative 
dy - integer that ma be positive, zero, or negative 
xmin - x of upper left of bounding rectangle 

ymin - y of upper left of bounding rectangle 

xmin - x of lower right of bounding rectangle 

ymin - y of lower right of bounding rectangle *) 


PROCEDURE SetRast(VAR rp: RastPort; pen: CARDINAL); 
(* Set an entire drawing area to a specified color. 

rp - a RastPort structure 

pen - the pen number (0..255) to jam into bitmap *) 
END Rasters. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
poonrorererrrirrrrrrcreriecfccreesresarrocsferverert ir racree tee tet ete tt ted 
* Name: RealConversions.DEF Version: Amiga.00.00 * 
* Created: 12/25/86 Updated: 01/19/87 Author: Leon Frenkel * 
* Description: Conversion of REAL numbers to strings and conversion of = * 
* strings to REAL numbers. * 


RRA RI RAR RARRA ARAN AI RRREERRRRE RARE RR RERE SEES ASRS EEER EERE RERRARER REE AE AE) 
DEFINITION MODULE RealConversions; 
(*$L-*) 


TYPE 
RealToStringFormat = (Scientific, | (* Scientific - [-Jm.nnnnnnE[+|-]xx *) 
Decimal, (* Decimal = - [-]mmm.nnnnn *) 
ShortestForm); (* Use which ever form is shorter *) 








PROCEDURE ConvStringToReal(s: ARRAY OF CHAR): REAL; 
(* Convert a string representation of a floating point number to its REAL val. 


s - string containing the ascii floating point number 

result - the floating point number *) 
PROCEDURE ConvRealToString(x: REAL; VAR s: ARRAY OF CHAR; 

digits: CARDINAL; format: RealToStringFormat); 

(* Convert a REAL number to “a string representation. 

x - number to be converted 

s - string which is to receive the result 

digits - number of digits to generate past the decimal point 

format - the desired floating point format *) 


END RealConverstons. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
SANAAARARARNRNNRARRARREEEAEREREARERARRAERESERRUARRORNERREAREERNARRRRNERANERE 
* Name: RealInOut DEF Version: Amiga.00.00 * 
* Created: 01/14/87 Updated: 07/24/87 Author: Leon Frenkel * 
* Description: Standard RealInQut module as described in appendix 2 of = * 
* Programming in Modula-2 by N. Wirth. ® 


peeelie seuedol munuvowenebere anrerssestntecerteratett tirreettttteceecetesensy 

DEFINITION MODULE RealInOut; 

(*$L+*) 

VAR Done: BOOLEAN; 

PROCEDURE ReadReal(VAR x: REAL); 

(* Read REAL number. Input terminates with a blank or any control character. 
Xx - variable into which to store real number *) 

PROCEDURE WriteReal(x: REAL; n: CARDINAL); 

(* Write x using n characters. If fewer than n characters are needed, leading 
blanks are inserted. 
x - real value to be output 


n - chars to output *) 


END RealInOut. 
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* Madula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
eItirtttitieetie tener ere rest tees pr areetetsec cece sec coer eet ere cee ent entrant 
* Name: Regions. DEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 11/20/86 Author: Leon Frenkel * 
* Description: Graphics Regions types/functians. * 


HRAAAANNRNARARA EERE RARER ER ERRARSIHERER AREA SHRAZERAASARAEEAESEREREAEASHERESEL) 


DEFINITION MODULE Regions; 


FROM SYSTEM IMPORT BYTE, ADDRESS; 
FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Graphics IMPORT Rectangle; 


TYPE 
RegionRectanglePtr = POINTER TO RegtonRectangle; 
RegionRectangle = RECORD 
Next : RegionRectanglePtr; 


Prev : RegionRectanglePtr; 
bounds : Rectangle; 
END; 


RegionPtr = POINTER TO Region; 
Region = RECORD 
bounds : Rectangle; 
RegionRectangle : RegionRectanglePtr; 


PROCEOURE AndRectRegion(VAR region: Region; VAR rectangle: Rectangle); 
(* Perform 2d AND operation of rectangle with region, leaving result in region. 


region - Region structure 
rectangle - Rectangle structure *) 


PROCEDURE AndRegionRegion(VAR regioni, region2: Region): BOOLEAN; 
(* Perform 2d AND operation of one region with second region, leaving result 
in second region. 


regionl - Region structure 
region2 - Region structure to use and for result 


result - TRUE if successful operation, FALSE if ran out of memory *) 
PROCEDURE ClearRectRegion(VAR region: Region; VAR rectangle: Rectangle): BOOLEAN; 
(* Perform 2d CLEAR operation of rect with region, leaving result in region. 


region - Region structure 
rectanble - Rectangle structure 


result - TRUE if successful operation, FALSE if ran out of memory *) 
PROCEDURE ClearRegion(VAR region: Region); 
(* Remove all rectangles from region. 
region - Region structure *) 
PROCEDURE DisposeRegion(VAR region: Region); 
(* Return all space for this region to free memory pool. 


region - Region structure *) 
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PROCEDURE NewRegion(): RegionPtr; 
(* Get a clear region. 


result - pointer to initialized region. if it could not allocate required 
memory returns NIL *) 

PROCEDURE OrRectRegion(VAR region: Region; VAR rectangle: Rectangle): BOOLEAN; 

(* Perform 2d OR operation of rectangle with region, leaving result in region. 


region - Region structure 
rectangle - Rectangle structure 


result - TRUE if successful operation, FALSE if ran out of memory *) 
PROCEDURE OrRegionRegion(VAR regionl, region2: Region): BOOLEAN; 
(* Perform 2d OR operation af one region with second region, leaving 


result in second region. 


regionl - Region structure 
regian2 - Region structure 


result - return TRUE if successful operation, FALSE if ran out of memory *) 


PROCEDURE XarRectRegion(VAR region: Region; VAR rectangle: Rectangle): BOOLEA! 
(* Perform 2d XOR operation of rectangle with region, leaving result in region. 








region - Region structure 
rectangle - Rectangle structure 


result - return TRUE {f successful operation, FALSE if ran out of memory *) 


PROCEDURE XorRegionRegion(VAR regioni, region2: Region): BOOLEAN; 
(* Perform 2d XOR operation of one region with second region, leaving 
result in second region. 


regianl - Region structure 
region - Region structure 


result - return TRUE if successful operation, FALSE if ran out of memory *) 


END Regtons. 
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Modula-2 Software Construction Set 


* (c) 1986 by Leon Frenkel 
AARERAARRARAERRAEARSSARRRANERAAREAAHEARAREEAROREERAREARRERSSIRSAR ERAN ERE IIR 
Version: Amiga.00.00 
Author: Leon Frenkel 
* Description: Exec Resident Types/Functions. 


* Name: Resident.OEF 
* Created: 11/19/86 Updated: 07/24/87 


SOI I EI ICICI EIR RRA E RR RR REE E EASE RIE TAR ITER EE REESE), 


DEFINITION MODULE Resident; 
FROM SYSTEM IMPORT BYTE, ADDRESS; 


TYPE 
RTFlagsSet = SET OF [0..7]; 


ResidentPtr = POINTER TO Resident; 
Resident = RECORD 
rtMatchWord : CARDINAL; 
rtMatchTag : ResidentPtr; 


rtEndSkip : ADDRESS; 
rtFlags :-RTFlagsSet; 
rtVersion : BYTE; 
rtType : BYTE; 
rtert : BYTE; 
rtName 2 ADDRESS; 
rtIdString : ADDRESS; 
rtInit 2 ADDRESS; 

END; 


CONST 
RTCMatchWord = 4AFCH; 


C 
ol 


word to match on (ILLEGAL) *) 
pointer to the above *) 
address to continue scan *) 
various tag flags *) 

release version number *) 
type of mode (NTmumble) *) 
initialization priority *) 
pointer to node name *) 
pointer to ident string *) 
pointer to init code *) 


(* flags definitions of Resident.rtFlags field *) 


RTAutoInit = 7; 
RTColdStart = 0; 


PROCEDURE FindResident(name: ADDRESS): ResidentPtr; 


(* Find a resident module by name. 


name - pointer to a nai 





string 


result - pointer to the resident tag structure or NIL if none found *) 


PROCEDURE InitCode(startClass, version: LONGCARD); 


(* Initialize resident code modules. 


startClass - the class of code to be initialized: coldstart, coolstart, 


warmstart, ... 
version - a major version number *) 


PROCEDURE InitResident(VAR resident: Resident; segList: ADDRESS); 


(* Initialize a resident module. 


resident - a resident node 
seglist - a list of segments *) 


—ND Resident. 


* 


* 


Module Resident 
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* Madula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
eapnerenenrarerecrerrrcarsterioeter sr errTececsetrrrtri tric ti rotors er ra 
* Name: Resources.DEF Version: Amiga.00.00 * 
* Created: 11/19/86 Updated: 11/22/86 Author: Leon Frenkel * 
* Description: Exec Resources Types/Functions. * 


prrveterettttiretet ettterttt ster retort ere 


DEFINITION MODULE Resources; 
FROM SYSTEM IMPORT ADDRESS; 
FROM Libraries IMPORT Library; 


TYPE 
ResourcePtr = POINTER TO Resource; 
Resource = RECORD 
rLibrary : Library; 
END; 


PROCEDURE AddResource(VAR resource: Resource); 
(* Add a resource to the system. 


resource - a properly initialized resource node *) 


PROCEDURE OpenResource(resName: ADDRESS): ResourcePtr; 
(* Gain access to a resource. 


resName - the name of the resource requested 

result - 1f successfull, a resource pointer, else NIL *) 
PROCEDURE RemResource(VAR resource : Resource); 
(* Remove a resource from the system. 


resource - a resource node *) 


END Resources. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Mame: RomLayers.DEF Version: Amiga.00.00 * 
* Created: 11/24/86 Updated: 11/24/86 Author: Leon Frenkel * 
* Description: Graphics Rom Layers functions. * 


Brrooeca eesusapeacanred iettre: sent ceicee tater (i Cette ooo ce tee oor) 
DEFINITION MODULE RomLayers; 
FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Clipping IMPORT Layer; 
PROCEDURE AttemptLockLayerRom(VAR layer: Layer): BOOLEAN; 
(* Attempt to Lock Layer structure by rom (gfx 1ib) code. 
Jayer - Layer structure 
result - TRUE or FALSE depending on whether the layer is now lock by caller*) 
PROCEDURE CopySitMap(VAR layer: Layer); 
(* Syncronize Layer window with contents of Super BitMap. 


layer - Super8itMap Layer. The Layer must already be locked by the caller *) 


PROCEDURE LockLayerRom(VAR layer: Layer); 
(* Lock layer structure by rom (gfx lib) code. 


layer - Layer structure *) 
PROCEDURE SyncSBitMap(VAR layer: Layer); 
(* Syncronize Super BitMap with whatever is in the standard Layer bounds. 
layer - Layer that has a SuperBitMap. The Layer should be locked by caller *) 
PROCEDURE UnlockLayerRom(VAR layer: Layer); 
(* Unlock Layer structure by rom(gfx 14b) code. 
layer - Layer structure *) 


END RomLayers. 


Module RomLayers 


32-161 


Module RunTimeErrors 
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* Modula-2 Software Construction Set = 
* (c) 1986 by Leon Frenkel * 
sppupppeeenarermennerercer:rcsrtecartacerieccrtescrtrerc tte ticle i titr irri 
* Name; RunTimeErrors.DEF Version: Amiga.00.00 = 
* Created: 02/26/87 Updated: 02/26/87 Author: Leon Frenkel * 


* Description: This module is usefull for debuging purposes. Whenever a * 
* run-time error occures a window will be displayed showing the context * 


* of the error and giving the user the option of continuing,aborting, etc.* 
Wrecacnasavnnnoat onus penmrererntner ire rerstcrrirer stir: srrtrttteTttteis) 


DEFINITION MODULE RunTimeErrors; 
(*$L+*) 


PROCEDURE InstallErrorHandler; 
(* Install run-time error processor. *) 


PROCEDURE RemoveErrarHandler; 
(* Remove run-time error processor. *) 


ENO RunTimeErrors. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
JUDO ODODE IIIS TO RT DR TIRE I CRRA RARER EERE 
* Name: Semaphores.DEF Version: Amiga.00.00 * 
* Created: 11/19/86 Updated: 11/22/86 Author: Leon Frenkel * 
* Description: Exec Semaphores Types/Functions. * 


AARREAAANANAR ARDS ENARRRSERERERRANEEERERASEARERTAEASAESEAEERARNSREREATERERESE) 


DEFINITION MODULE Semaphores; 


FROM SYSTEM IMPORT ADDRESS; 

FROM Lists IMPORT MinList; 

FROM Nodes IMPORT Node, MinNode; 

FROM Ports IMPORT MsgPort, Message, MessagePtr; 
FROM Tasks IMPORT TaskPtr; 


TYPE 
SemaphorePtr = POINTER TO Semaphore; 
Semaphore = RECORD 

smMsgPort : MsgPor: 
smBids : INTEGE! 
END; 





(* SignalSemaphore *) 
(* This is the structure used to request a signal semaphore *) 
SemaphoreRequestPtr = POINTER TO SemaphoreRequest; 
SemaphoreRequest = RECORD 


srlink : MinNode; 
srWaiter : TaskPtr; 
END; 


(* This 1s the actual semaphore itself *) 
SignalSemaphorePtr = POINTER TO SignalSemaphore; 
SignalSemaphore = RECORD 


ssLink : Node; 
ssNestCount  : INTEGER; 
ssWaitQueue —: MinList; 
ssMultipleLink : SemaphoreRequest; 
ssOwner : TaskPtr; 
ssQueueCount : INTEGER; 

END; 


PROCEDURE AddSemaphore(VAR signalSemaphore: SignalSemaphore); 
(* Add a signal semaphore to the system. 


signalSemaphore - an initialized signal semaphore structure *) 


PROCEDURE AttemptSemaphore(VAR signalSemaphore: SignalSemaphore): BOOLEAN; 
(* Try to obtain without blocking. 

signalSemaphore - an initialized signal semaphore structure 

result - TRUE if the semaphore was lock, FALSE if some other task 

already possesed the semaphore *) 

PROCEDURE FindSemaphore(name: ADDRESS): SignalSemaphorePtr; 
(* Find a given system signal semaphore. 

name - name of the semaphore ta find 

result - a pointer to the signal semaphore, or NIL if not found *) 
PROCEDURE InitSemaphore(VAR signalSemaphore: SignalSemaphore); 


(* Initialize a signal semaphore. 


signalSemaphore - an uninitialized signal semaphore structure *) 
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PROCEDURE ObtainSemaphore(VAR signalSemaphore: SignalSemaphore) ; 
(* Gain exclusive access to a semaphore. 


signalSemaphore - an initialized signal semaphore structure *) 
PROCEDURE ObtainSemaphoreList(VAR list: SignalSemaphore) ; 
(* Get a list of semaphores. 
list - a list of signal semaphores *) 
PROCEDURE Procure(VAR semaphore: Semaphore; VAR bidMessage: Message): BOOLEAN; 
(* Bid for a message lock (semaphore). 


semaphore - a semaphore message port 
bidMessage - a message 


result - TRUE when the semaphore is free. In such cases no waiting needs 


to be done. if FALSE, the the task should wait at its bidMessage 
reply port *) 


PROCEDURE ReleaseSemaphore(VAR signalSemaphore: SignalSemaphore) ; 
(* Make a signal semaphore available to others. 

signalSemaphore - an initialized signal semaphore structure *) 
PROCEOURE ReleaseSemaphoreList(VAR list: SignalSemaphore); 
(* Make a list of semaphore available. 

list - a list of signal semaphores *) 
PROCEDURE RemSemaphare(VAR signalSemaphore: SignalSemaphore) ; 
(* Remove a signal semaphore from the system. 


signalSemaphore - an initialized signal semaphore structure *) 





PROCEDURE Vacate(VAR semaphore: Semaphore); 
(* Release a message lock (semaphore). 


semaphore - the semaphore message port representing the semaphore to be 
freed *) 


END Semaphores. 
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* Modula-2 Software Construction Set * 
® (c) 1986 by Leon Frenkel = 
IRR RRR ERA ER ERE RR SHEERS EERE REE ERREEERRERIRAEEREEEE 
* Name: SerialDevice. DEF Version: Amiga.00.00 * 
* Created: 11/27/86 Updated: 12/31/86 Author: Leon Frenkel * 
* Description: "serial.device* types. * 


TORII IDIOT OIA II ITT RISA AAA RAT RRR) 


DEFINITION MODULE SerialDevice; 


FROM SYSTEM IMPORT BYTE; 
FROM I0Devices IMPORT CmdNonStd, IOStdReq; 


CONST 
SerialName = “serial.device"; 


sOCmdQuery = CmdNonStd + 0; 
SOCmdBreak = CmdNonStd + 1; 
SOCmdSetParams = CmdNonStd + 2; 


TYPE 
(* array of termination char’s *) 
ToTArrayPtr = POINTER TO IOTArray: 
IOTArray = RECORD 

TermArrayO 
TermArrayl 


LONGCARD; 
LONGCARD; 


CONST 


(* I0StdRequest.1oFlags := I0FlagsSet{ } *) 
ToSerBufRead = 7; (* from read buffer bit *) 





ToSerQueued * rqst-queued bit *) 
I0SerAbort (* rqst-aborted bit *) 
TOSerActive = 4; (* rqst-qued-or-current bit *) 

TYPE 


SerFlags = (SerParityOn,  (* parity-enabled bit *) 
SerParityOdd, (* parity feature enabled bit *) 
Ser7Wire, (* RS232 7-wire protocol *) 
SerQueued@rk, (* queue this Break {oRqst *) 
SerRadBoogie, (* high-speed mode active bit *) 
SerShared, (* non-exclusive access bit *) 
SerEOFMode, © (* EOF mode enabled bit *) 
SerxDisabled); (* xOn-xOff feature disabled bit *) 

SerFlagsSet = SET OF SerFlags; 


SerExtFlags = (SExtMark, (* if markespace, use mark bit *) 
SExtMSPOn, (* mark-space parity bit *) 
SEF2, SEF3, SEF4, SEF5, SEF6, SEF7, 
SEF8, SEF9, SEF10, SEF11, SEF12, SEF13, 
SEF14, SEF15, SEF16, SEF17, SEF18, SEF19, 
SEF20, SEF21, SEF22, SEF23, SEF24, SEF25, 
SEF26, SEF27, SEF28, SEF29, SEF30, SEF31); 
SerExtFlagsSet = SET OF SerExtFlags; 


SerStatus = (10STOverRun, (* status work RBF overrun bit *) 
IdSTWroteBreak, (* break was latest output bit *) 
TOSTReadBreak, (* break was latest input bit *) 
IOSTXOffWrite, (* transmit currently xOFF’ed bit *) 
TOSTXOffRead, (* receive currently xOFF’ed bit *) 
I0ST5, IOST6, I0ST7, I0ST8, IOST9, I0ST10, 

IOST11, IOST12, IOST13, IOST14, IOST15); 

SerStatusSet = SET OF SerStatus; 
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(* CAUTION !! IF YOU ACCESS the serial.device, you MUST (!!!!) use an *) 


(* IDExtSer-sized structure or you may overlay innocent memory !! —*) 
(Heinen na Renn ERNE A RENEE RENO RE NA AERAREREARRIAAASASSR REAERESATSIASE SH) 


IOExtSerPtr = POINTER TO IOExtSer; 

IOExtSer = RECORD 
r0Ser : IostdReq; 
Yoct}char : LONGCARD; (* control char(order=x0N,xOFF, INQ, ACK)*) 
{oRBufLen : LONGCARD; (* length in bytes of serial read buf *) 
foExtFlags : SerExtFlagsSet; (* additional flags (see above) *) 








joBaud { LONGCARD; (* baud rate requesterd (true baud) *) 
{oBrkTime : LONGCARD; (* duration of break signal in microsec*) 
4oTermArray : IOTArray; (* termination character array *) 
joReadlen : BYTE; (* bits per read char (# of bits) *) 
joWriteLen : BYTE; (* bits per write char (# of bits) *) 
joStopBits : BYTE; (* stopbits for read (# of bits) *) 
joSerFlags : SerFlagsSet; (* SerFlags bit defs above *) 
{oStatus : SerStatusSet; 

END; 


(* status of serial part, as follows: 





Is BIT ACTIVE FUNCTION 

* 0 low busy 

* 1 low paper out 

2 low select 

* 3. low Data Set Ready 
‘* 4 low Clear To Send 
i 5 low Carrier Detect 
* 6 low Ready To Send 
* 7 low Data Terminal Ready 
* 8 high read overrun 

* 9 high break sent 

* 10 high break received 
im ll high transmit x-OFFed 
i 12 high receive x-OFFed 
% 13-15 reserved 

=) 
CONST 

SerErrDevBusy = 1; 

SerErrBaudMismatch = 2; 

SerErrInvBaud = 3; 

SerErrBuferr = + 

SerErrInvPal a 3 

SerErrLineErr = 6; 

SerErrNotOpen a 7s 

SerErrPortReset = 8; 

SerErrParityErr = th 

SerErrinit€rr = 10; 

SerErrTimerErr = ll; 

SerErrBufOverflow = 12; 

SerErrNoDSR = 13; 

SerErrNocTS = 14; 

SerErrDetectedBreak = 15; 


END SerialDevice. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
rreirertetteetetretteetee Tiareer etter eee cieeeicerer fer receer cer rertcer sere 
* Name: Sprites.DEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 11/23/86 Author: Leon Frenkel * 
* Description: Graphics Sprites types/functions. * 


HARRREAARAARERRRAEEREER SERS ERERRA RARE SEER RAE REREEE REAR ERE ER RARER EAH ERE) 
DEFINITION MODULE Sprites; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 


FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Views IMPORT ViewPort; 


CONST 
SpriteAttached = 80H; 


(* Pass as parameter to GetSprite() if no sprite number preference *) 
AnySprite = -1; 


TYPE 
SimpleSpritePtr = POINTER TO SimpleSprite; 
SimpleSprite = RECORD 


posctidata : ADDRESS; 
height: CARDINAL; 
x : CARDINAL; (* current x position *) 
y : CARDINAL; (* current y position *) 
nua : CARDINAL; 

END; 


PROCEDURE ChangeSprite(VAR vp: ViewPort; VAR s: SimpleSprite; newdata: ADDRESS); 
(* Change the sprite image pointer. 


vp - ViewPort structure that this sprite is relative to or NIL if relative 
only top of View 
s - SimpleSprite structure 
newdata - pointer to data structure of the following form: 
spriteimage = RECORD 
posct] : ARRAY [0..1] OF CARDINAL; 
data: ARRAY [1..height][0..1] OF CARDINAL; 
reserved : ARRAY [0..1] OF CARDINAL; 
END; 
Programmer must initialize reserved[2]. Spriteimage must be 
in CHIP memory. The height subfield of the SimpleSprite structure 
must be set to reflect the height of the new spriteimage BEFORE 
calling ChangeSprite. The programmer may allocate two sprites to 
handle a single attached sprite. After GetSprite, ChangeSprite, 
the programmer can set the SPRITE ATTACHED bit in posctl[1] of the 
odd numbered sprite. If you need more than 8 sprites look up VSprites 
in the graphics documentation. *) 





PROCEDURE FreeSprite(pick: INTEGER); 
(* Return sprite for use by other and virtual sprite machine. 


pick - number in range of 0..7 *) 
PROCEDURE GetSprite(VAR sprite: SimpleSprite; pick: INTEGER): INTEGER; 
(* Attempt to get a sprite for the simple sprite manager. 


sprite - programmers SimpleSprite structure 
pick - number in the range of 0..7 or -1 for next sprite 


result - allocated sprite number, or -1 if sprite could not be goten *) 


Module Sprites 
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PROCEDURE MoveSprite(VAR vp: ViewPort; VAR sprite: SimpleSprite; x, y: INTEGER); 
(* Move sprite to a pointer relative to top of viewport. 


vp - pointer to ViewPort structure 
sprite - pointer to SimpleSprite structure 


x - new x position relative to top of viewport or view 
y - new y position relative to top of viewport or view *) 


ENO Sprites. 
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Modula-2 Software Construction Set 
* (c) 1986 by Leon Frenkel 


* 
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* Name: Storage.DEF Version: Amiga.00.00 

* Created: 12/03/86 Updated: 01/20/87 Author: Leon Frenkel 

* Description: Memory management module as defined in appendix 2 of 

* Programming in Modula-2" by N. Wirth. This module is included to 

* allow programs written on other systems to be ported and vice versa, 

* to access the full memory management capabilities of the Amiga use the 
* 








module "Memory®. 


SOR RRR REAR RRR RTI RRR AIRE II RE RARE AR ERT RESALE AER ERA SHY 


DEFINITION MODULE Storage; 
FROM SYSTEM IMPORT ADDRESS; 
(*$L4*) 


PROCEDURE ALLOCATE(VAR a: ADDRESS; size: LONGCARD); 
(* Allocate an area of given size and returns its address in a. 


a - variable to be set to pointer to memory, set to NIL if not enough mem 


size - number of bytes to allocate *) 


PROCEDURE DEALLOCATE(VAR a: ADDRESS; size: LONGCARD); 
(* Frees the area at address a with the given size. 


a - variable which contains the adr of the memory to be deallocated 
size - number of bytes to free *) 


PROCEDURE Available(size: LONGCARD): BOOLEAN; 

(* Available returns TRUE if size bytes could be allocated. Since the Amiga 
is a multi-tasking system, the only way to be sure that the memory will 
actually be available when the ALLOCATE is issued is to use Forbid() and 
Permit() around the call to this procedure and the call to the ALLOCATE 
procedure which may follow it. 





size - number of bytes we would require 
result - TRUE if the required amount of memory is available *) 


END Storage. 


Module Storage 
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Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: Strings.DEF Version: Amiga.00.00 * 


* Created: 12/03/86 Updated: 02/09/87 Author: Leon Frenkel . 
* Description: Functions for handling null-terminated strings, defined bai 
* as arrays of chars. This implementation can handle strings of up to = 
* 32767 chars. al 


peryed ot oven beaumennreraerreerrertrrcetrrer tre rrtterttettrettticrtrc trios) 
DEFINITION MODULE Strings; 

(*$L+*) 

TYPE 


(* Result type of CompareString() and CompareStringCAP() *) 
Relation = (less, equal, greater); 


PROCEDURE StringLength(string: ARRAY OF CHAR): CARDINAL; 
(* returns the number of characters in the string, up to but excluding the 
string terminator. 


string - string whose length is to be measured 
result - length of string in chars *) 

PROCEDURE ConvStringTaUpperCase(VAR string: ARRAY OF CHAR); 

(* Force the chars in the string to upper case. Only lower case letters 
are effected, all other chars remain the same. 
string - string to be converted to upper case *) 

PROCEDURE CompareString(stringl, string2: ARRAY OF CHAR): Relation; 

(* return less, equal or greater depending on the lexical order of the 


strings. 


stringl - the string on the left side of the compare 
string2 - the string on the right side of the compare 


result - returns the result of comparing the strings: <,=,> *) 
PROCEOURE CompareStringCAP(stringl, string2: ARRAY OF CHAR): Relation; 
(* return less, equal or greater depending on the lexical order of the 


strings. Both strings are converted to upper case before comparing! 


stringl - the string on the left side of the compare 
string2 - the string on the right side of the compare 


result - returns the result of comparing the strings: <,=,> *) 
PROCEDURE CopyString(VAR toString: ARRAY OF CHAR; fromString: ARRAY OF CHAR); 
(* Copies the string "fromString® to the string "toString". The string 

js truncated if necessary. 

taString - the destination string for the copy 

fromString - the source string for the copy *) 


PROCEDURE ConcatString(VAR toString: ARRAY OF CHAR; fromString: ARRAY OF CHAR); 
(* Append the "fromString" to the end of the "toString". If the toString is 
not large enough to accomadate the new string it will be truncated. 


toString - Destination string for the concatanation 
fromString - string to be appended to the "toString" *) 
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PROCEDURE InsertSubString(VAR baseString: ARRAY OF CHAR; 
subString: ARRAY OF CHAR; start: CARDINAL); 
(* Inserts "subString" into “baseString": inserting starts after *start* 
characters of *BaseString" are skipped; the rest of *baseString* is 


shifted up and truncated as necessary. If start > StringLength(baseString) 
the result 1s undefined 


baseString - string into which to insert 
subString - the string to be inserted 
start - the baseString char after which to begin insert *) 


PROCEDURE OverwriteWithSubString(VAR baseString: ARRAY OF CHAR; 
ssubString: ARRAY OF CHAR; start: CARDINAL); 
(* Like insert, but does not shift up part of *baseString": "baseString" is 
lengthened and "subString* truncated as necessary. 


baseString - the string to be partially overwritten 
subString - the string to overwrite with 
start - character after which to begin storing the subString *) 


PROCEDURE DeleteSubString(VAR baseString: ARRAY OF CHAR; 
fromPosition: CARDINAL; length: CARDINAL); 
(* Deletes “length* characters in "baseString* starting at *fromPosition*; 
the procedure shifts down any character of "baseString* following the 
deletion. 





baseString - string from which to delete characters 
fromPosition - the char position where to begin delete 
length - the number of chars to delete *) 


PROCEDURE ExtractSubString(VAR subString: ARRAY OF CHAR; 
baseString: ARRAY OF CHAR; 
fromPosition, length: CARDINAL); 

(* returns in subString the characters (truncated as necessary) of 

“baseString" from *fromPosition* through *fromPosition* + "length* -1. 








subString - the string into which the extracted string is to be stored 
baseString - the string from which to extract the sub string 
fromPosition - begin extraction from this position 

length - number of chars to be extracted *) 


PROCEDURE LocateSubString(baseString, subString: ARRAY OF CHAR; 
start, end: CARDINAL): INTEGER; 
(* Searches for "subString* in positions *start* through “end* of 
"baseString". 


baseString - string to be searched for sub-string 
subString - string for which to search in baseString 
start - starting position for search 

end - ending position for search 


result - position of string, or -1 if not found *) 
PROCEDURE LocateChar(string: ARRAY OF CHAR; c: CHAR; 
start, end: CARDINAL): INTEGER; 
(* Searches for *c* in positions *start* through "end* of string. 
string - string to be searched for char 
c - char to be serarced for 
start - starting position of serach in string 
end - ending position of search for string 


result - position of char, or -1 if not found *) 


END Strings. 


32-171 


Module System 


(ERI I RRR RR RRR RETR RESIST ER AARERTR SER TSEERESE RE EI ERATE 


* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
ppeerererereerrererrenreccesrsercr: orton cecsrerntrrecttrretirr ter totticdd 
* Name: System. DEF Version: Amiga.00.00 * 
* Created: 11/17/86 Updated: 07/24/87 Author: Leon Frenkel * 


* Description: AmigaDOS Modula-2 program startup code and run-time support * 
* procedures. * 
Pevepocrovboonnn rrr rrr 





RARER RARE RS RRR IERIE RARER AERA RA RR RIR AIRY 
DEFINITION MODULE System; 

FROM SYSTEM IMPORT ADDRESS; 

VAR 


(EOC IOI IR RR RIOR RRR ERRATA ERATE 


(* The following libraries are opened and closed by the startup code! *) 


(CUR TT OR IR RRR RAR R ARERR SEER E RR RR RE RRAR RAR SARA S) 





ExecBase (* "exec. library* *) 

00SBase (* "dos. 1ibrary* *) 

MathBase & (* "mathffp.lbrary* — *) 

IntuitionBase : (* "intuition. library" *) 

GfxBase (* "graphics. library" *) 

LayersBase (* “layers. library" —*) 

CmdLinePtr  : ADDRESS; (* Ptr to command line arguments string *) 
CmdLineLength : LONGCARD; (* Length of command line arguments string *) 
StackPtr : ADDRESS; (* Stack Ptr Reg (A7) on entry into program *) 
StackSize  : LONGCARD; (* Size of stack allocated for program *) 


StdInput : ADDRESS; (* file handle for standard input *) 
StdOutput : ADDRESS; (* file handle for standard output *) 


(* argc - nuaber of parsed arguments *) 

(* argv - pointer to an array of string pointers to actual arguments *) 

(* 4f argc = O THEN WBenchMsg = ptr to the message sent to us by WB *) 
arge : CARDINAL; 

argy : POINTER TO ARRAY [0..255] OF POINTER TO ARRAY [0..255] OF CHAR; 
WBenchMsg : ADDRESS; 


(* Code to be returned on exit from program, defaults to 0 *) 
CLIReturnCode : LONGINT; 





(* === Modula-2 Run-Time Support Procedures (Internal use only!) === *) 


PROCEDURE HALTX; 
(* Terminate program returning to the CLI or to the Workbench. *) 


PROCEDURE MULU32; 
(* Multiply two unsigned 32-bit numbers. *) 


PROCEOURE DIVU32; 
(* Divide two unsigned 32-bit numbers. *) 


PROCEDURE MULS32; 
(* Multiply two signed 32-bit numbers. *) 


PROCEDURE O1VS32; 
(* Divide two signed 32-bit numbers. *) 
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(* === Single-Precision Floating Point Math Functions === *) 


PROCEDURE FADDs(adder, addend: REAL): REAL; 
(* Add two floating point numbers. *) 


PROCEDURE FSUBs(minuend, subtrahend: REAL): REAL; 
(* Subtract two floating point numbers. *) 





PROCEDURE FMULs(multiplicand, multiplier: REAL): REAL; 
(* Multiply two floating point numbers. *) 


PROCEDURE FDIVs(dividend, divisor: REAL): REAL; 
(* Divide two floating point numbers. *) 


PROCEOURE FREMS(dividend, divisor: REAL): REAL; 
(* Take the remained of the division of two floating point numbers. *) 


PROCEDURE FCMPs(first, second: REAL); 
(* Compare two floating point numbers. Sets the Cond Codes. *) 


PROCEDURE FNEGs(toNeg: REAL): REAL; 
(* Negate a floating point number. *) 


PROCEDURE FABSs(toAbs: REAL): REAL; 
(* Take the absolute value of a floating point number. *) 


PROCEDURE FLOATS(toFloat: LONGINT): REAL; 
(* Convert a LONGINT to a REAL. *) 


PROCEDURE TRUNCs(toTrunc: REAL): LONGINT; 
(* Convert a REAL to @ LONGINT. *) 
(* === Double-Precision Floating Point Math Functions === *) 


PROCEDURE FADOd(adder, addend: LONGREAL): LONGREAL; 
(* Add two floating point numbers. *) 


PROCEDURE FSUBd(minuend, subtrahend: LONGREAL): LONGREAL; 
(* Subtract two floating point numbers. *) 





PROCEDURE FMULd(multiplicand, multiplier: LONGREAL): LONGREAL; 
(* Multiply two floating point numbers. *) 


PROCEDURE FOIVd(dividend, divisor: LONGREAL): LONGREAL; 
(* Divide two floating point numbers. *) 





PROCEDURE FREMd(dividend, divisor: LONGREAL): LONGREAL; 
(* Take the remained of the division of two floating point numbers. *) 


PROCEDURE FCMPd(first, second: LONGREAL); 
(* Compare two floating point numbers. Sets the Cond Codes. *) 


PROCEDURE FNEGd(toNeg: LONGREAL): LONGREAL; 
(* Negate a floating point number. *) 


PROCEDURE FABSd(toAbs: LONGREAL): LONGREAL; 
(* Take the absolute value of a floating point number. *) 


PROCEOURE FLOATd(toFloat: LONGINT): LONGREAL; 
(* Convert a LONGINT to a REAL. *) 


PROCEOURE TRUNCd(toTrunc: LONGREAL): LONGINT; 
(* Convert a REAL to a LONGINT. *) 


PROCEDURE FLONG(toConvert: REAL): LONGREAL; 
(* Convert a single precision floating point number to double precision. *) 


PROCEDURE FSHORT(toConvert: LONGREAL): REAL; 
(* Convert a double precision floating point number to single precision. *) 


END System. 


Module System 


32-173 


Module Tasks 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: Tasks.DEF 
* Created: 11/16/86 


Updated: 05/08/87 


Version: Amiga.00.00 * 


Author: Leon Frenkel 


* Description: 


Exec Tasks Types/Functions. 
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DEFINITION MODULE Tasks; 


FROM SYSTEM IMPORT BYTE, ADDRESS; 


FROM Nodes IMPORT Node; 
FROM Lists IMPORT List; 


CONST 


CurrentTask = NIL; (* Passed to FindTask or RemTask to indicate current task*) 


AnySignal = -1; (* Passed to AllocSignal to return any signal *) 
NoSignals = -1; (* Returned by AllocSignal to indicate no signals *) 
MaxSignal = 31; (* Highest signal number *) 

AnyTrap = -1; (* Passed to AllocTrap to return any trap *) 
NoTraps = -1; (* Returned by AllocTrap to indicate no traps *) 
MaxTrap = 15; (* Highest trap number *) 


(* Predefined signal 
SigAbort = 
Sigchi ld 
SigBlit 
SigSingle 
Sigdos 





TYPE 


bits *) 


SignalRange = [AnySignal..MaxSignal]; 





SignalSet = SET OF [0..MaxSignal]; 
TrapRange = [AnyTrap..MaxTrap]; 
TrapSet |= SET OF [0..MaxTrap]; 


TaskFlags = (TProcTime, Tl, 12, 13, TStackChk, TExcept, TSwitch, 


TLaunch) ; 





TaskFlagsSet = SET OF TaskFlags; 


TaskState = (TSInvalid, TSAdded, 


TaskStateSet = SET OF TaskState; 


TaskPtr = POINTER TO 
Task = RECORD 


Task; 





teNode : Node; 
tcFlags : TaskFlagsSet; 
teState : TaskStateSet; 
teIDNestCnt (* intr disabled nesting *) 
tcTDNestCnt : (* task disabled nesting *) 
teSigAlloc ; (* signals allocated *) 
toSigwait signals we are waiting for *) 
teSigRecvd signals we have received *) 
teSigExcept signals we take excepts for *) 
teTrapAlloc traps allocated *) 
teTrapAble traps enabled *) 
tcExceptData points to except data *) 
te€xceptCode points to except cade *) 
teTrapData points to trap code *) 
teTrapCode points to trap data *) 
tcSPReg stack pointer *) 
tcSPLower : ADDRESS; (* stack lower bound *) 
tcSPUpper 1 ADDRESS; (* stack upper bound + 2 *) 
teSwitch 1 ADDRESS; (* task losing CPU *) 
tcLaunch ADDRESS; (* task getting CPU *) 
teMemEntry : List; (* allocated memory *) 
tcUserData : ADDRESS; (* per task data *) 

END; 
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TsRun, TSReady, TSWait, TSExcept, TSRemoved); 


PROCEDURE AddTask(VAR task: Task; initialPC, finalPC: ADDRESS) ; 
(* Add a task to the system. 


task - the task contra? block 

initialPC - the initial entry point’s address 

finalPC - the finalization code entry point’s address. If NIL then the 
system will use a general finallizer *) 


PROCEDURE AllocSignal(signalNum: SignalRange): SignalRange; 
(* Allocate a signal bit. WARNING: Signals may not be allocated or freed from 
exception handling code. 


signalNum - the desired signal number 0..31 or -1 for no preference 
result - the signal bit number allocated 0..31, if no signals are available 


this function returns -1 *) 


PROCEDURE AllocTrap(trapNum: TrapRange): TrapRange; 
(* Allocate a processor trap vector. WARNING: Traps may not be allocated or 
freed from exception handling code. 





trapNum - the desired trap number 0..15 or -1 for no preferences 
result - the trap number allocated 0..15 or -1 if no trap is available *) 
PROCEDURE FindTask(name: ADDRESS): TaskPtr; 
(* Find a task with the given name or find oneself. 
name - pointer to a name string or NIL to find current task 
result - pointer to the task or NIL if not found *) 
PROCEOURE FreeSignal(signalNum: SignalRange); 
(* Free a signal bit. WARNING: Signals may not be allocated or freed from 
exception handling code. 
signalNum - the signal number to free *) 


PROCEDURE FreeTrap(trapNum: TrapRange); 


(* Free a processor trap. WARNING: Traps may not be allocated or freed from 
exception handling code. 








trapNum - the trap number to free 0..15 *) 


PROCEDURE RemTask(task: TaskPtr); 
(* Remave a task from the system. 


task - pointer to the task node representing the task to be removed. A NIL 
value indicates self removal *) 


PROCEDURE SetExcept(newSignals, signalMask: SignalSet): SignalSet; 
(* Define certain signals to cause exceptions. 


newSignals - the new values for the signals specified in signalMask 
signalMask - the set of signals to be effected 


result - the prior exception signals 


EXAMPLE 
SetExcept(SignalSet(), SignalSet(}) - will return the current state of 
all exception signals 
SetExcept(SignalSet(4,5,9,12), SignalSet(4,9,12}) - change a few 
exception signals *) 


Module Tasks 
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Module Tasks 


PROCEDURE SetSignal(newSignals, signalMask: SignalSet): SignalSet; 
(* Define the state of this task’s signals. 


newSignals - the new values for the signals speicified in signalSet 
signalMask - the set of signals to be effected 


result - the prior values for all signals *) 
PROCEDURE SetTaskPri(VAR task: Task; priority: INTEGER): INTEGER; 
(* Get and set the priority of a task. 


task - task to be affected 
priority - the new priority for the task -128..127 


result - the tasks previous priority *) 


PROCEDURE Signal(VAR task: Task; signals: SignalSet); 
(* Signal a task. 
task - the task to be signalled 
signals - the signals to be sent *) 
PROCEDURE Wait(signalSet: SignalSet): Signalset; 
(* Wait for one or more signals. 


signalSet - the set of signals for which to wait 


result - the set of signals which caused the return from wait *) 


END Tasks. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
SUCHET ITE TEI RE I RRR EE REE 
* Name: TasksUti].DEF Version: Amiga.00.00 * 
* Created: 01/04/87 Updated: 01/14/87 Author: Leon Frenkel * 
* Description: Exec Support Procedures for Tasks. * 
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DEFINITION MODULE TasksUti1; 


FROM SYSTEM IMPORT ADDRESS; 
FROM Tasks IMPORT Task, TaskPtr; 


(*$L4*), 
PROCEDURE CreateTask(name: ADDRESS; pri: INTEGER; initPC: ADDRESS; 
stackSize: LONGCARD): TaskPtr; 

(* Create a task. 

name - a pointer to null-term string 

pri - priority of task 

initPC - ptr to be passed to AddTask as the initialPC parameter 

stackSize - used in the setup of tcSPLower and tcSPUpper 

result - returns a pointer to the new Task, or NIL if the request failed *) 
PROCEDURE DeleteTask(task: TaskPtr); 
(* Frees up a tasks’ stuff as allocated by CreateTask(). 

task - pointer to the task node representing the task to be removed. A NIL 

value indicates self removal *) 


END TasksUtil. 


Module TasksUti1 
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Module Terminal 
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* Modula-2 Software Construction Set s 
* (c) 1986 by Leon Frenkel * 
pepppepernennnnnrororcrracocsrierrrteretrertttirerec i CITC oo i foc loots 
* Name: Terminal.DEF Version: Amiga.00.00 * 


* Created: 11/19/86 Updated: 01/20/87 Author: Leon Frenkel * 
* Description: Standard Terminal 1/0 as described in Programming in * 
* appendix 2 of Programming in Madula-2 by N. Wirth. * 
* The procedures in this module read/write to the I/O files initially — * 
* assigned to a program. This is usually the window from which the program* 
* started but may be redirected by the user to any file using the * 
* AmigaDOS ">" and “<* after the name of the program. * 
seovude-supprnnaununsuanrnepeeratren rer ser rire Cet iteeeel TOL Lio oo tsa ay 





DEFINITION MODULE Terminal; 
(*$L4*) 
VAR 


(* Result of previous Read(c) procedure: TRUE = end of file, FALSE = not eof *) 
eof : BOOLEAN; 


PROCEDURE Read(VAR ch: CHAR); 
(* Read a character from the terminal, if a character is not ready then 
wait til] it is typed. *) 


PROCEDURE BusyRead(VAR ch: CHAR); 
(* Returns OC if no character was typed. *) 


PROCEOURE ReadAgain; 
(* Causes the last character read to be returned again upon the next of Read. *) 


PROCEDURE Write(ch: CHAR); 
(* Output a character to the terminal. *) 


PROCEDURE WriteLn; 
(* Terminate line. *) 


PROCEDURE WriteString(s: ARRAY OF CHAR); 
(* Output a string of characters to the terminal. *) 


END Terminal. 
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Module TermInOut 
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* Modula-2 Software Construction Set . 
* (c) 1986 by Leon Frenkel « 
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* Name: TermInOut .DEF Version: Amiga.00.00 NA 
* Created: 08/07/87 Updated: 08/07/87 Author: Leon Frenkel . 


* Description: A very small version of InQut for output to terminal ONLY! * 
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DEFINITION MODULE TermInOut; 
(*$L+*) 


CONST EOL = 12C; 
VAR Done: BOOLEAN; 
termCH: CHAR; (*terminating character in ReadInt, ReadCard*) 


(* TRUE = echo chars in ReadString, FALSE = don’t echo *) 
Echo: BOOLEAN; (* Default: TRUE *) 


PROCEDURE Read(VAR ch: CHAR); 
("Done := NOT in.eof*) 


PROCEOURE ReadString(VAR s: ARRAY OF CHAR); 

(*read string, i.e. sequence of characters not containing 
blanks nor control characters; leading blanks are ignored. 
Input is terminated by any character <= " *; 
this character is assigned to termCH. 

DEL is used for backspacing when input from terminal*) 





PROCEDURE ReadInt(VAR x: INTEGER); 
(*read string and convert to integer. Syntax: 
integer = ["+*|"-"] digit {digit}. 
Leading blanks are ignored. 
Done := "integer was read**) 


PROCEDURE ReadCard(VAR x: CARDINAL); 
(*read string and convert to cardinal. Syntax: 
cardinal = digit (digit). 
Leading blanks are ignored. 
Done := "cardinal was read**) 





PROCEDURE Write(ch: CHAR); 
PROCEDURE WriteLn; ("terminate line*) 


PROCEOURE WriteString(s: ARRAY OF CHAR); 





PROCEDURE WriteInt(x: INTEGER; n: CARDINAL); 
(*write integer x with (at least) n characters on file "out". 
If n is greater than the number of digits needed, 
blanks are added preceding the number*) 


PROCEOURE WriteCard(x,n: CARDINAL) ; 

PROCEDURE WriteOct(x,n: CARDINAL); 

PROCEDURE WriteHex(x,n: CARDINAL); 
END TermIndut. 
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Module Text 
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Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
seprnnernenenrererrerrrrr st srrerrreerrrnrrerserer areca retrrterttt rir tet ed 
* Name: Text.DEF Version: Amiga.00.00 * 
* Created: 11/20/86 Updated: 05/08/87 Author: Leon Frenkel * 
* Description: Graphics Text Types/functions. * 
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DEFINITION MODULE Text; 


FROM SYSTEM IMPORT BYTE, ADDRESS; 

FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Ports IMPORT Message; 
FROM Rasters IMPORT RastPort; 





TYPE 
(* Font Styles *) 
FontStyle = (Underlined, (* underlined (under baseline) *) 
Bold, (* bold face text (ORed w/ shifted) *) 
Italic, (* italic (slanted 1:2 right) *) 
Extended); (* extended face (wider than normal) *) 
FontStyleSet = SET OF FontStyle; 


CONST 
(* normal text (no style bits set) *) 
NormalFontStyle = FontStyleSet(}; 


TYPE 

(* Font Flags *) 

FontFlags = (RomFont, (* font is in rom *) 
DiskFont, (* font 1s from diskfont. library *) 
RevPath, (* designed path is reveresed (e.g. left) *) 
Tal loot, (* designed for hires non-interlaced *) 
WideDot, (* designed for lores interlaced *) 
Proportional, (* character sizes can vary from nominal *) 
Designed, (* size is "designed", no constructed *) 
Removed); (* the font has been removed *) 


FontFlagsSet = SET OF FontFlags; 


TextAttrPtr = POINTER TO TextAttr; 
Textattr = RECORD 
taName : ADDRESS; (* name of the font *) 
taYSize : CARDINAL; (* height of the font *) 
taStyle : FontStyleSet; (* intrinsic font style *) 
taFlags : FontFlagsSet; (* font preferences and flags *) 
END; 


(* TextFonts node *) 
TextFontPtr = POINTER TO TextFont; 
TextFont = RECORD 











tfMessage : Message; (* reply message for font removal *) 
* font name in LN *) 
tfYsize : CARDINAL; (* font height *) 
tfStyle  : FontStyleSet; (* font style *) 
tfFlags : FontFlagsSet; (* preferences and flags *) 
tfxXSize : CARDINAL; (* nominal font width *) 
tfBaseline : CARDINAL; (* distance from the top of char to baseline *) 
tfBoldSmear : CARDINAL; (* smear to affect a bold enhancement *) 
tfAccessors : CARDINAL; (* access count *) 
tfLochar CHAR; (* the first char described here *) 
tfHichar CHAR; * the last char described here *) 
tfCharData : ADDRESS; (* the bit character data *) 
tfModulo CARDINAL; (* the row modulo for the strike font data *) 
tfCharLac : ADDRESS; (* ptr to location data for the strike font *) 
(* 2 words: bit offset then size *) 
tfCharSpace : ADDRESS; (* ptr to words of proportional spacing data *) 
tfCharkern : ADDRESS; (* ptr to words of kerning data *) 
END; 


PROCEDURE AddFont(VAR textFont: TextFont); 
(* Add a font to the system list. 


textFont - a TextFont structure in public ram *) 
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PROCEDURE AskFont(VAR rp: RastPort; VAR textAttr: TextAttr); 
(* Get the text attributes of the current font. 


rp - the RastPort from which the text attributes are extracted 
textAtrr - the TextAttr structure to be filled *) 
PROCEDURE AskSoftStyle(VAR rp: RastPort): FontStyleSet; 
(* Get the soft style bits of the current font. 
rp - the RastPort from which the font and style are extracted 
result - those bits in the style that are algorithmically generated *) 
PROCEDURE CloseFont(VAR font: TextFont); 
(* Release a pointer to a system font. 
font - a font as returned by OpenFont or OpenDiskFont *) 
PROCEOURE OpenFont(VAR textAttr: TextAttr): TextFontPtr; 
(* Get a pointer to a system font. 
textAttr - a TextAttr structure that desciribes the text font attributes desired 
result - pointer to font, or NIL if font not found *) 
PROCEDURE RemFont(VAR textFont: TextFont); 
(* Remove a font from the system list. 
textFont - the TextFont structure to remove *) 
PROCEDURE SetFont(VAR rp: RastPort; VAR font: TextFont); 
(* Set the text font and attributes in a RastPort. 
rp - the RastPort in which the text attributes are to be changed 


font - a TextFont structure returned from OpenFont or OpenDiskFont *) 


PROCEDURE SetSoftStyle(VAR rp: RastPort; style: FontStyleSet; 
enable : FontStyleSet): FontStyleset; 
(* Set the soft style of the current font. 





rp - the RastPort from which the font and style are extracted 
style - the new font style to set, subject to enable 
enable - those bits in style to be changed 


result - the resulting style, both as a result of previous soft style 
selection, the of this function, and the style inherent in the font 
*) 


PROCEDURE Text(VAR rp: RastPort; string: ADDRESS; count: INTEGER); 
(* Write text characters (no formatting). 
rp - a RastPort which describes where the text is to be output 


string - the string to be output 
count - the length of the string, if zero then no characters to output *) 


PROCEDURE TextLength(VAR rp: RastPort; string: ADDRESS; count: INTEGER): INTEGER; 
(* Determine raster length of text data. 

rp - a RastPort which describes where the text is to be output 

string - the string for which to determine the length 

count - the length of the string, if zero then no characters to output 


result - the number of pixels in x this text would occupy *) 


END Text. 


Module Text 
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Module TimerDevice 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: TimerDevice.DEF Version: Amiga.00.00 * 
* Created: 11/26/86 Updated: 01/17/87 Author: Leon Frenkel * 
* Description: Timer Device. * 
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DEFINITION MODULE TimerDevice; 


FROM SYSTEM IMPORT ADDRESS; 
FROM I0Devices IMPORT CmdNonStd, IORequest, DevicePtr; 


VAR 
(* This variable must be initialized to point to the timer device before 
* the procedures in this module can be used! 


TimerBase : DevicePtr; 


CONST 
(* unit definitions *) 
UnitMicroHz = 0; 
UnitvBlank = 1; 


TimerName = "timer.device"; 


TYPE 
timevalPtr = POINTER TO timevalPtr; 
timeval = RECORD 
tvsecs : LONGCARD; 
tvmicro : LONGCARD; 
END; 


timerequestPtr = POINTER TO timerequest; 
timerequest = RECORD 
trnode : IORequest; 
trtime : timeval; 
END; 


CONST 
(* IO_COMMAND to use for adding a timer *) 
TRAddRequest = CmdNonStd; 
TRGetSysTime = CmdNonStd + 1; 
TRSetSysTime = CmdNonStd + 2; 


PROCEDURE AddTime(VAR Dest, Source: 
(* Add one time request to another. 


timeval); 





Dest - a timeval structure 
Source - a timeval structure *) 


PROCEDURE CmpTime(VAR Dest, Source: timeval): INTEGER; 
(* Compare two timeval structures. 


Dest - a timeval structure 
Source - a timeval structure 


result - 0, if Dest has the same time as Source 


-1, if Dest has less time than Source 
+1, if Dest has more time than Source *) 


PROCEDURE SubTime(VAR Dest, Source: timeval); 
(* Subtact one time request from another. 
Dest - a timeval structure 


Source - a timeval structure *) 


END TimerDevice. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: TrackDiskDevice.DEF Version: Amiga.00.00 * 
* Created: 11/27/86 Updated: 12/31/86 Author: Leon Frenkel * 
* Description: *trackdisk.device* types. * 
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DEFINITION MODULE TrackDiskDevice; 


FROM SYSTEM IMPORT BYTE; 


FROM I0Devices IMPORT CmdNonStd, CmdClear, CmdRead, CmdUpdate, CmdWrite, 


ToStdReq, Unit; 


CONST 


TOName = "trackdisk.device"; 


(* Physical drive constants *) 


NumSecs = 11; 
NumUnits = 4; 


(* Usefull constants *) 
TOSector = 512; 


TOSecShift = 9; (* log TOSector *) 


TOMotor 








TOAddChangeInt 
TORemChangeInt 


CmdNonstd 
CmdNonstd 


= CmdNonstd 
ToSeek = CndNonStd 
ToFormat = CadNonstd 
ToRemove = CndNonstd 
TOChangeNum = CudNonStd 
ToChangeState = CmdNonStd 
ToProtStatus = CmdNonStd 
TORawRead = CndNonstd 
TORawWrite = CmdNonStd 
TOGetOrivetype = CudNonStd 
TOGetNumTracks = CmdNonStd 


TOLastComm = CmdNonStd 


TOExtCom = 8000H; (* 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


+ 


13; 


C 
C 


control the disk’s motor *) 
explicit seek (for testing) *) 
format disk *) 

notify when disk changes *) 
number of disk changes *) 

is there a disk in the drive? *) 
is the disk write protected? *) 
read raw bits to the disk *) 
write raw bits to the disk *) 

get the type of the disk drive *) 
# of tracks for this type drive *) 
TORemove done right *: 

remove softint set by TDAddChangeInt *) 


for internal use only! *) 


(* the disk driver has an "extended command" facility. These commands 
* take a superset of the normal I0 Request block. 


ETOWrite = TOExtCom + 

ETORead = TOExtCom + 

ETOMotor = TOExtCom + 

ETOSeek = TOExtCom + 

ETOFormat = TOExtCom + 

ETOUpdate = TDExtCom + CmdUpdate; 
ETOClear = TOExtCom + CmdClear; 
ETDRawRead = TOExtCom + TORawRead; 
ETORawWrite = TOExtCom + TORawWrite; 


TYPE 





(* extended I0 has a larger than normal io request block. *) 
IOExtTOPtr = POINTER TO IOExtTO; 


IOExtTO = RECORD 


jotdReq : I0StdReq; 

fotdCount : LONGCARD; 

iotdSecLabel : LONGCARD; 
END; 


Module TrackDiskDevice 
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Module TrackDiskDevice 


CONST 
(* raw read and write can be synced with the index pulse. This flag *) 
(* in fo request’s ioFlags field tells the driver that you want this. *) 
IOTDIndexSync = 4; 


(* labels are TDLabelSize bytes per sector *) 
ToLabelSize = 16; 


(* This is a bit in the FLAGS field of OpenDevice. If it is set, then *) 
(* the driver will allow you to open all the disks that the trackdisk *) 
(* driver understands. Otherwise only 3.5" disks will succeed. wd ) 
TDAllawNon35 = 0; 


(* If you set the TOB_ALLOW NON 3.5 bit in OpenDevice, then you don’t *) 
(* know what type of disk you really got. These defines are for the *) 
(* TO_GETDRIVETYPE command. In addition, you can find out how many *) 
(* tracks are supported via the TO_GETNUMTRACKS command. *) 
Orive35 = 

Drive525 = 





(n3.5" *) 
3 (* 5.25" *) 





(* Driver error defines * 
TDErrNotSpecified = 20; (* general catchall *) 
TOErrNoSecHdr 








= couldn’t even find a sector *) 
OErrBadSecPreamble = sector looked wrong *) 
TOErrBadSecID . ditto *) 
TOErrBadHdrSum . header had incorrect checksum *) 
TOErrBadSecSum . data had incorrect checksum *) 
TOErrTooFewSecs == couldn’t find enough sectors *) 
ToErrBadSechdr . another "sector looked wrong" *) 
TOErrWriteProt . can’t write to a protected disk *) 
TErrOiskChanged == no disk in the drive *) 
ToErrSeekError . couldn’t find track 0 *) 
TDErrNoMem . ran out of memory *) 
ToErrBadunitNum == asked for a unit > NumUnits *) 
TOErrBadDriveType = not a drive that trackdisk works *) 
ToErrOriveInUse == someone else allocated the drive *) 
TOErrPostReset = 35; (* user hit reset; awaiting doom *) 

TYPE 


(* public portion of the unit structure *) 

ToOUPublicUnitPtr = POINTER TO TOUPublicUnit; 

TOUPubTicUnit = RECORD 
tduunit 2 Unit; (* base message port *) 
tduCompOlTrack : CARDINAL; (* track for first precomp *) 
tduCompl0Track : CARDINAL; (* track for second precomp *) 
tduComplitrack : CARDINAL; (* track for third precomp *) 
tduStepDelay : LONGCARD; (* time to wait after stepping *) 
tduSettleDelay : LONGCARD; (* time to wait after seeking *) 
tduRetryCnt : BYTE; —(* #of times to retry *) 

END; 


END TrackDiskOevice. 
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Module Translator 
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Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: Translator.DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 12/31/86 Author: Leon Frenkel * 
* Description: Amiga "translator. library® definitions. . 
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DEFINITION MODULE Translator; 


FROM SYSTEM IMPORT ADDRESS; 
FROM Libraries IMPORT LibraryPtr; 


CONST 
TranslatorName = “translator.1library"; 


VAR 
TranslatorBase : LibraryPtr; 


CONST 
(* Translator error return codes *) 
TRNotUsed = -1; (* This 1s an oft used system rc *) 
TRNOMem == -2; (* Can’t allocate memory *) 
TRMakeBad = -4; (* Error in MakeLibrary call *) 


PROCEDURE Translate(instring: ADDRESS; inlen: LONGINT; 
outbuf: ADDRESS; outlen: LONGINT): LONGINT; 
(* Convert an English string into phonemes. 


instring - pointer to English string 

inlen - length of English string 

outbuf - a char array which will hold the phonetic codes 
outlen - the length of the output array 


result - Translate will return a zero if no error has occured. 
The only error that can occur is overflowing the output 
buffer. If Translate determines that an overflow will 
occur, it will stop the translation at a word boundary 
before the overflow happens. If this occurs, Translate 
will return a negative number whose absolute value 
indicates where in the INPUT string Translate stopped. 
The user can then use the offset -rtnCode from the 
beginning of the buffer in a subsequent Translate call 
to continue the translation where s/he left off. *) 


END Translator. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
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* Name: Views.DEF Version: Amiga.00.00 = 
* Created: 11/20/86 Updated: 01/16/87 Author: Leon Frenkel * 
* Description: Graphics View types/functions. * 
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DEFINITION MODULE Views; 


FROM SYSTEM IMPORT ADDRESS, BYTE; 

FROM System IMPORT GfxBase; (* Used by IMPLEMENTATION MODULE *) 
FROM Copper IMPORT CopListPtr, cprlistPtr, UCopListPtr; 

FROM Rasters IMPORT RasInfoPtr; 


TYPE 
ColorTablePtr = POINTER 10 ColorTable; 
ColorTable = ARRAY [O..31] OF CARDINAL; 


ColorMapPtr = POINTER TO ColorMap; 
ColorMap = RECORD 





Flags BYTE; 
Type BYTE; 
Count : CARDINAL; 


ColorTable : ColorTablePtr; 
END; 
(* 4f Type = zero then ColorTable 1s a table of CARDINAL xRGB *) 


ViewMades = (VMO, 
GenLockVideo, (* Gen Lock Video *) 


Lace, (* Interlace 400 vertical resolution *) 
v3, 

M4, 

VMS, 

PFBA, (* playfield priority *) 


ExtraHalfBrite, (* future use *) 
GenlockAudio, (* Gen Lock Audio *) 


vg, 

QualPF, (* Qual Play Field *) 

HAM, (* (H)old (A)nd (M)odify *) 

M12, 

vPHide, (* reuse another plane ctr bit *) 
Sprites, (* reuse one of plane ctr bits *) 
Hires); (* Hires 640 width *) 


ViewModesSet = SET OF ViewModes; 


ViewPortPtr = POINTER TO ViewPort; 
ViewPort = RECORD 
Next  : ViewPortPtr; 
ColorMap : ColorMapPtr; (* table of colors for this viewport *) 
(* if NIL MakeVPort assumes defaults *) 
DspIns : CopListPtr; (* used by MakeView() *) 
Sprins : CopListPtr; (* used by sprite stuff *) 
CirIns : CopListPtr; (* used by sprite stuff *) 











UcopIns : UCopListPtr; (* user copper list *) 
Width ©: INTEGER; 
DHeight : INTEGER; 
Dxoffset : INTEGER; 
DyOffset : INTEGER; 
Modes ViewModesSet; 
reserved : CARDINAL; 
RasInfo : RasInfoPtr; 
END; 


ViewPtr = POINTER TO View; 
View = RECORD 





ViewPort : ViewPortPtr; 
LoFcprList : cprlistPtr; (* used for interlaced and noninterlaced *) 
SHFCprList : cprlistPtr; (* only used during interlace *) 
DyOffset : INTEGER;  (* for complete View positioning *) 
Dxoffset : INTEGER;  (* offset are +- adjustments to stand #s *) 
Modes i ViewMadesSet; (* video modes *) 

END; 
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PROCEDURE FreeColorMap(VAR colormap: ColorMap); 
(* Free the ColorMap structure and return memory to free memory pool. 


colormap - ColorMap allocated with GetColorMap *) 
PROCEDURE FreeVPortCopLists(VAR vp: ViewPort); 
(* Deallocate all intermediate copper lists and their headers from a viewport. 
vp - ViewPort structure *) 
PROCEDURE GetColorMap(entries: LONGINT): ColorMapPtr; 
(* Allocate and initialize Colormap. 
entries - number of entries for this colormap 
result - Pointer to a colormap or NIL if colormap could not be allocated *) 
PROCEDURE GetRGB4(VAR colormap: ColorMap; entry: LONGINT): LONGCARD; 
(* Inquire value of entry in ColorMap. 


colormap - ColorMap structure 
entry - index into colormap 


result - RGB value 4 bits per gun right justified or -1 if no valid entry *) 


PROCEDURE InitView(VAR view: View); 
(* Initialize view structure. 


view - a View structure *) 
PROCEDURE InitVPort(VAR vp: ViewPort); 
(* Initialize ViewPort structure. 

vp - a ViewPort structrure *) 


PROCEDURE LoadRGB4(VAR vp: ViewPor: 
(* Load RGB color values from table. 





colors: ADDRESS; count: INTEGER); 


vp - a ViewPort, whos colors you want to change 
colors - pointer to of RGB values set up as an array of CARDINAL 
count - number of entries in table *) 


PROCEOURE LoadView(VAR view: View); 
(* Use a (possibly freshly created) coprocessor instruction list to create 
the current display. 
view - the View structure which contains the pointer to the 
constructed coprocessor instruction list *) 
PROCEOURE MakeVPort(VAR view: View; VAR viewport: ViewPort); 
(* Generate display copper list. 
view - View structure 
viewport - ViewPort structure *) 
PROCEDURE MrgCop(VAR view: View); 
(* Merge together coprocessor instructions. 
view - a view structure *) 
PROCEDURE ScrollVPort(VAR vp: ViewPort); 


(* Reinterpret RasInfo information in ViewPort. 


vp - a ViewPort structure that is currently displayed *) 


Module Views 
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Module Views 


PROCEDURE SetRGB4(VAR vp: ViewPort; n: INTEGER; r, g, b: CARDINAL); 
(* Set one color register for this viewport. 


vp - viewport structure 

n- the color number (range from 0 to 31) 
r - red level 

g - green level 

b - blue level *) 





PROCEDURE SetRGB4CM(VAR cm: ColorMap; n: INTEGER; r, g, b: CARDINAL); 
(* Set one color register for this ColorMap. 


cm - colormap 

n - the color number (range from 0 to 31) 
r - red level 

g - green level 

b - blue level *) 


PROCEDURE WaitBOVP(VAR vp: ViewPort); 
(* Wait till vertical beam reached bottom of this viewport. 





vp - ViewPort structure *) 


END Views. 
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* Modula-2 Software Construction Set * 
* (c) 1986 by Leon Frenkel * 
TOES UCDO TORTIE RIT IT RIE RES RR RR RR REAR RE REET 
* Name: Workbench.DEF Version: Amiga.00.00 * 
* Created: 11/29/86 Updated: 05/07/87 Author: Leon Frenkel * 


* Description: Amiga Workbench and "icon. library" definitions. is 


SAAAAARANAAAERARA AERA RERRESSSREREESARSRAEREEEESEEARERAEAEIRREREAS EEREREAEREE) 
DEFINITION MODULE Workbench; 


FROM SYSTEM IMPORT ADDRESS, TSIZE; 

FROM Intuition IMPORT Gadget, NewWindow; 
FROM Libraries IMPORT LibraryPtr; 

FROM Lists IMPORT List; 

FROM Ports IMPORT Message, MsgPortPtr; 


CONST 
IconName = “icon. 1ibrary*; 


VAR 
IconBase : LibraryPtr; 


TYPE 
OrawerDataPtr = POINTER TO OrawerData; 
OrawerData = RECORD 





ddNewWindow : NewWindow; (* args to open window *) 
ddCurrentX : LONGINT; (* current x coordinate of origin *) 
ddCurrentY : LONGINT; (* current y coordinate of origin *) 
END; 
CONST 
(* the amount of OrawerData actually written to disk *) 
OrawerDataFileSize = TSIZE(DrawerData); 
TYPE 
DiskObjectType = (WeO, (* nat used *) 
WBDisk, 
WBOrawer, 
WBTool, 
WeProject, 
W8Garbage, 
weDevice 
WBKick 





OiskObjectPtr = POINTER TO DiskObject; 
DiskObject = RECORD 





doMagic : CARDINAL; (* magic number at start of file *) 
doVersion : CARDINAL; (* version number, so it can change*) 
doGadget Gadget; (* a copy of in core gadget *) 
doType : DiskObjectType; 

doDefaultTool : ADDRESS; 

doToolTypes : ADDRESS; 

doCurrentX — : LONGINT; 

doCurrentY — : LONGINT; 


doDrawerData : DrawerDatePtr; 
doToolWindow : ADDRESS; (* only applies to tools *) 
doStackSize : LONGINT; (* only applies to tools *) 


END; 
CONST 
WBDiskMagic = OE310H; (* a magic number, not easily impersonated *) 
WBDiskVersion = 1; (* our current version number *) 
TYPE 


FreeListPtr = POINTER TO FreeList; 
FreeList = RECORD 
flNumFree : INTEGER; 
fiMemList : List; 
END; 


Module Workbench 
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Module Workbench 


CONST 
(* each message that cones into the WorkBenchPort must have a type file *) 
(* in the preceding short. These are the defines for this type 
NTypePstd «1 "standard Potiion* message *) 
MTypeToolExit = 2; (* exit message from cut tools *) 
NTypeDiskChange = 3; (* dos telling us of a disk change *) 
MTypeTimer = 4; (* we got a timer tick *) 
MTypeCloseDown = 5; (* <unimplemented> *) 
MTypelOProc == 6; (* <unimplemented> *) 





(* workbench does different complement modes for its gadgets. 

* It supports separate images, complement mode, and backfill mode. 
The first two are identical to intuitions GADGIMAGE and GADGHCOMP. 
backfill 1s similar to GADGHCOMP, but the region outside of the 


image (which normally would be color three when complemented) 


* 
* 
* is flood-filled to color zero. 


GadgBackFill = 1; 


(* 1f an fcon does not really live anywhere, set it current position to here*) 
NoIconPosition = 80000000H; 


TYPE 
WBArgPtr = POINTER TO WBArg; 
WBArg = RECORO 
waLock : ADDRESS; (* a lock descriptor PTR *) 


waName : ADDRESS; (* a string relative to that lock *) 
ENO; 


w8StartupPtr = POINTER TO WBStartup; 
wBStartup = RECORD 








smMessage : Message; a standard message structure = 
smProcess  : MsgPortPtr; (* the process descriptor for you *) 
smSegment  : ADDRESS; © (* a descriptor for your code BPTR *) 
umArgs : LONGINT;  (* number of elements in ArgList *) 
smToolWindow : ADDRESS;  (* description of window *) 
smArglist  : WBArgPtr; (* the arguments themselves *) 


END; 
PROCEDURE AddFreeList(VAR free: FreeList; mem: ADDRESS; len: LONGCARD): CARDINAL; 
(* Add memory to the free list. 
free - a FreeList structure 
mem - the base of the memory to be recorded 
len - the length of the memory to be recorded 
result - nonzero if the call succeeded *) 


PROCEDURE BumpRevision(newbuf: ADDRESS; oldn: 
(* Reformat a name for a second copy. 





ADDRESS): ADDRESS; 


newbuf - the new buffer that will receive the name (minimum of 31 chars long) 
oldname - the original ni 





result - a pointer to newbuf *) 
PROCEDURE FindToolType(toolTypeArray: ADDRESS; typeName: ADDRESS): ADDRESS; 
(* Find the value of a ToolType variable. 


toolTypeArray - an array of strings 
typeName - the name of the tooltype entry 


result - painter to a string that is the value bound to typeName or NIL 
if typeName not in toolTypeArray *) 

PROCEDURE FreeDiskObject(VAR diskobj: DiskObject); 

(* Free all memory in a Workbench disk abject. 


diskobj - a DiskObject structure *) 
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PROCEDURE FreeFreeList(VAR free: FreeList); 
(* Free all memory in a free list. 


free - a FreeList structure *) 
PROCEDURE GetOiskObject(name: ADDRESS): DiskdbjectPtr, 
(* Read in a Workbench disk object 

name - name of the object 

result - the Workbench disk object in question *) 
PROCEDURE GetIcon(name: ADDRESS; VAR icon: DiskObject; 

VAR free: FreeList): CARDINAL; 

(* Read in a DiskObject structure from disk. 

name - name of the object 

icon - a DiskObject structure 

free - a FreeList structure 

result - non-zero 1f the call succeeded *) 
PROCEDURE MatchToolValue(typeString: ADDRESS; value: ADDRESS): CARDINAL 


(* Check a tool type variable for a particular value. 


typeString - a ToolType value (as returned by FindToolType) 
value - you are interested if value appears in typeString 


result - a one if the value was in typeString *) 
PROCEDURE PutDiskObject(name: ADORESS; VAR diskobj: DiskObject): CARDINAL; 
(* Write out a DiskObject to disk. 


name - name of the object 
diskobj - a OiskObject structure 





result - non-zero if the call succeeded *) 


PROCEDURE PutIcon(name: ADDRESS; VAR icon: DiskObject): CARDINAL; 
(* Write out a DiskObject to disk. 


name - name of the object 
icon - a DiskObject structure 


result - non-zero if the call succeeded *) 


ENO Workbench. 


Module Workbench 
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Error Messages 


This appendix contains a summary of the error messages generated by each of 
the software tools. For each error there is a detailed explanation of the 
possible reason for the error and in some cases an example. 


Errors which relate to files are generally rather vague. This is because 
there are so many possible reasons why doing an operation on a given file may 
return an error. Typical file related errors are not specifying the correct 
file name, not having the correct disk in the drive, and many others. When 
encountering difficulties with file related errors refer to an AmigaDOS 
reference manual. 


Modula-2 Compiler Error Messages 


This subsection deals with the errors generated by the compiler. A 
compiler error consists of two component the error code and the error message. 
The error code is useful for quickly finding the description associated with a 
given error. The error message is a short message which identifies the problem. 
Many of the compiler errors are self explanatory. However, a more detailed 
description is provided help for each error. 


Compilation errors can be displayed using the error lister program or from 
within the EMACS editor. Refer to the chapter on the error lister or the EMACS 
editor for additional information. 


When trying to understand the reason for a given error closely examine the 
context in which the error occurred. Examining the context is necessary because 
many of the error messages are generic and may occur in many different 
situations. 


Fatal errors and errors not directly related to compilation are displayed 
by the compiler directly to the console. These errors are listed in a separate 
subsection of this appendix. 


List of Compiler Errors 


This subsection lists the errors generated by the compiler. The errors are 
listed by the error code associated with the error. For more information refer 
to another subsection of this appendix which has a detailed description 
associated with each message. 


Code Message 


10 identifier expected 


11 +, comma expected 
12 5; semicolon expected 
13. : colon expected 
14. ~period expected 
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15  ) right parenthesis expected 
16 ] right bracket expected 
17} ~=right brace expected 

18 = equal sign expected 

19 := assignment expected 

20 END expected 

21 ~«.. ellipsis expected 


22 ( left parenthesis expected 

23 OF expected 

24 TO expected 

25 DO expected 

26 UNTIL expected 

27 ~+~THEN expected 

28 MODULE expected 

29 invalid literal constant 

30 IMPORT expected 

31 factor starts with illegal symbol 

32 identifier, (, or [ expected 

33 identifier, ARRAY, RECORD, SET, POINTER, PROCEDURE, (, or [ expected 
34 Type followed by illegal symbol 

35 statement starts with illegal symbol 
36 declaration followed by illegal symbol 
37 statement part is not allowed in definition module 
38 export list not allowed in program module 
39 EXIT not inside a LOOP statement 

40 illegal character in number 

41 number too large 

42 comment without closing *) 

43 unknown compiler switch 

44 constant expression expected 

45 string terminator not found on line 

46 + or - expected after compiler switch 
50 identifier not declared or not visible 
51 object should be a constant 

52 object should be a type 

53 object should be a variable 

54 object should be a procedure 

55 object should be a module 

56 type should be a subrange 

57 ‘type should be a record 

58 type should be an array 

59 type should be a set 

60 illegal base type of set 

61 incompatible type of label or of subrange bound 
62 multiply defined case (label) 

63 low bound > high bound 

64 more actual than formal parameters 

65 fewer actual than formal parameters 

66 more parameters in IMP than in DEF 
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too many constants in enumeration type 

mismatch between VAR specifications 

mismatch between type specifications 

more parameters in DEF than in IMP 

mismatch between result type specifications 

function in DEF, pure procedure in IMP 

Procedure in DEF has parameters, but not in IMP 

code procedure cannot be defined FORWARD or defined in DEF module 
illegal type of control variable in FOR statement 

procedure call of a function 

identifiers in heading and at end do not match 

procedure already defined FORWARD 

body of FORWARD procedure undefined 

unsatisfied export list entry 

illegal type of procedure result 

illegal base type of subrange 

illegal type of case expression 

keys of imported symbol files do not match 

error in format of symbol file 

unresolved pointer type in current block 

symbol file not successfully opened 

Procedure declared in definition module, but not in implementation 
illegal implementation of opaque type 

too many cases 

too many exit statements 

index type of array must be a subrange 

subrange bounds must be less than 2715 

too many global modules 

too many structure elements in definition module 

multiple definition within the same scope 

illegal use of module 

constant index out of range 

indexed variable is not an array, or the index has the wrong type 
record selector is not a field identifier 

dereferenced variable is not a pointer 

operand type incompatible with sign inversion 

operand type incompatible with NOT 

x IN y: type(x) # basetype(y) 

x IN y: type of x cannot be the basetype of a set, or y is not a set 
{a..b}: type of either a or b is not equal to the base type of the set 
incompatible operand types 

operand type incompatible with * 

operand type incompatible with / 

operand type incompatible with DIV 

operand type incompatible with MOD 

operand type incompatible with AND 

operand type incompatible with + 

operand type incompatible with - 

operand type incompatible with OR 
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126 operand type incompatible with relation 

127 procedure must have level @ 

128 result type of P does not match that of T 

129 mismatch of a parameter of P with the formal type list of T 
130 procedure has fewer parameters than the formal type list 
131 procedure has more parameters than the formal type list 
132 assignment of a negative integer to a cardinal variable 
133 incompatible assignment 

134 assignment to non-variable 

135 type of expression in IF, WHILE, UNTIL clause must be BOOLEAN 
136 call of an object which is not a procedure 

137 type of VAR parameter is not identical to that of actual parameter 
138 constant outside of subrange bounds 

139 type of RETURN expression differs from procedure type 
141 step in FOR clause cannot be 0 

142 illegal type of control variable 

143 illegal type of FOR loop step 

144 incorrect type of parameter of standard procedure 

145 this parameter should be a type identifier 

146 string is too long 

147 incorrect priority specification 

200 (not yet implemented) 

201 integer too small for sign inversion 

202 element outside of set range 

203 overflow in multiplication 

204 overflow in division 

205 division by zero, or modulus with negative value 

206 overflow in addition 

207 overflow in subtraction 

208 cardinal value assigned to integer variable too large 
209 set size too large 

210 array size too large 

211 variable size too large 

215 expression too complex (register overflow) 

221 adr reloc buffer overflow 

225 too many strings 

226 program too long 

227 identifier buffer overflow 

228 heap overflow 

230 expression not loadable 

231 expression not addressable 

232 expression not allowed 

233 illegal expression 

234 register reservation error 

235 illegal selector for constant index field 

236 too many WITH statements nested (> 4) 

238 illegal size of operand 
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This subsection contains detailed ex, 


compiler. 


Code Message 


12 


13) 


14 


15 


16 


17 


18 


19 


28 


21 


22 


23 


identifier expected 
The compiler expected, but could 


, comma expected 
The compiler expected, but could 


3 semicolon expected 
The compiler expected, but could 


; colon expected 
The compiler expected, but could 


+ period expected 
The compiler expected, but could 


) right parenthesis expected 
The compiler expected, but could 


] right bracket expected 
The compiler expected, but could 
} right brace expected 
The compiler expected, but could 
= equal sign expected 

The compiler expected, but could 
t= assignment expected 
The compiler expected, but 
sign. 


could 


END expected 


The compiler expected, but could 


ellipsis expected 
The compiler expected, but could 


(| left parenthesis expected 
The compiler expected, but could 


OF expected 
The compiler expected, but could 


not find 


not find 
not find 
not find 
not find 
not find 
not find 
not find 


not find 


not find a colon 


not find 


not find 


Error Messages 


Planations of errors generated by the 


an identifier. 


a comma. 


a semicolon. 


a colon. 


a period. 


a right parenthesis. 


a right bracket. 


a right brace. 


an equal sign. 


followed by an equal 


an END. 


a double period. 


not find a left parenthesis. 


not find an OF. 
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25 


26 


27 


28 


29 


30 


3¥ 


32 


33 


34 


SD: 


36 
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TO expected 
The compiler expected, but could not find a TO. 


DO expected 
The compiler expected, but could not find a DO. 


UNTIL expected 
The compiler expected, but could not find an UNTIL. 


THEN expected 
The compiler expected, but could not find a THEN. 


MODULE expected 
The compiler expected, but could not find a MODULE. 


invalid literal constant 

The specified literal constant is invalid. The characters which are valid 
in a literal constant depend on the type of constant being defined. 
Example: 

10D - long decimal constant 

1.0 - floating point constant 

OFCOQH - hexadecimal constant 


IMPORT expected 
The compiler expected, but could not find an IMPORT. 


factor starts with illegal symbol 
An illegal symbol was found where an expression should begin. 


identifier, (, or [ expected 

The compiler expected, but could not find a simple type which may be a type 
identifier, an enumeration or a subrange. A simple types begin with an 
identifier, a left parenthesis or a right bracket respectively. 


identifier, ARRAY, RECORD, SET, POINTER, PROCEDURE, (, or [ expected 
The compiler expected, but could not find a type specification. 


Type followed by i11egal symbol 
The compiler expected, but could not find a semicolon, a vertical bar, or 
an END following a type specification. 


statement starts with illegal symbol 
The compiler expected, but could not find a statement. 


declaration followed by illegal symbol 
The compiler expected, but could not find a symbol such as TYPE, VAR, 
PROCEDURE, BEGIN, END, etc... 
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39 


40 


41 


42 


43 


44 


45 


46 


50 
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statement part is not allowed in definition module 

In the definition part of the module only the procedure heading are 
defined, the statements associated with a procedure are defined in the 
implementation part of the module. 


export list not allowed in program module 
An export list may only appear inside a local module. 


EXIT not inside a LOOP statement 
An EXIT statement is only valid inside a LOOP statement. 


illegal character in number 
An illegal character was encountered in the number specified. 


number too large 
The specified number is outside the legal range for this type of number. 


comment without closing *) 


Each open comment "(*" must have a corresponding close comment "*)", 
Comments may be nested to any level. 


unknown compiler switch 

An undefined compiler switch has been encountered. A compiler switch is 
specified inside a comment as follows: "(*$x *)" where x is a letter 
representing the compiler switch to be effected. 


constant expression expected 

The compiler expected an expression with a constant value. A constant 
expression is any expression which which does not require the compiler to 
generate executable code to calculate. 

Example: 

3+5 

{1,5} 


string terminator not found on line 

A string literal must begin and end on the same line. To define a literal 
which is longer than one line use the "\" character at the end of the line, 
Any character with an ASCII value less than " " is considered to be a line 
terminator, so a control character or a TAB character imbedded in a string 
would cause this error to be generated. To place special characters into a 
string use the "\" commands, i.e. \t,\n. 


+ or - expected after compiler switch 
The compiler expects to find a plus or minus sign after the char specifying 
the compiler switch to be effected. 


identifier not declared or not visible 

The specified identifier is not known to the compiler. An identifiers must 
be declared or imported before being used. Standard Modula-2 identifiers do 
not require any declarations. 
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52 


53 


54 


55) 


56 


Sy 


58 


59 


60 


61 


62 
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object should be a constant 
The compiler is expecting an object of the class constant. 


object should be a type 
The compiler is expecting an object of the class type. 


object should be a variable 
The compiler is expecting an object of the class variable. 


object should be a procedure 
The compiler is expecting an object of the class procedure. 


object should be a module 
The compiler is expecting an object of the class module. 


type should be a subrange 
The compiler is expecting a subrange type. 


type should be a record 
The compiler is expecting a record type. 


type should be an array 
The compiler is expecting an array type. 


type should be a set 
The compiler is expecting a set type. 


illegal base type of set 

A set type must be based on a subrange or an enumeration. 
Example: 

SET OF [@..18] (subrange based) 

SET OF (a,b,c) (enumeration based) 


incompatible type of label or of subrange bound 

The upper and lower bounds of a subrange or label range must be of the same 
type. 

Example: 

[9..10] (compatible) 

[9.."A"] (incompatible) 


multiply defined case (label) 

Each label in a case statement or case variant record must be unique, this 
applies to individual labels and a range of labels. 

Example: 

"9..19,5" would cause "5" to be multiply defined because "5" is already 
specified in the range "0..10". 
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65 


66 
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low bound > high bound 

The lower bounds of the subrange is higher the the upper bounds of the 
subrange. This error also applies to a label range in a CASE statement or 
a variant record. 

Example: 

[10..5] (invalid) 

[5..10] (valid) 


more actual than formal parameters 

The number of parameters specified in the procedure call is more than the 
number of parameters defined by the procedure. 

Example: 

PROCEDURE Draw(x,y: CARDINAL) 


Draw(10, 20,30); (* too many parameters *) ~ 


fewer actual than formal parameters 

Not all of the parameters defined by the procedure are specified in the 
procedure call. 

Example: 

PROCEDURE Move(x,y: CARDINAL); 


Move (a+b); (* not enough parameters *) 


more parameters in IMP than in DEF 

The procedure in the implementation module has been specified with more 
parameters than are declared in the procedure heading in the definition 
part of the module. 

Example: 

Definition -> PROCEDURE sqrt(x: REAL); 

Implementation-> PROCEDURE sqrt(x: REAL; y: INTEGER); 


too many constants in enumeration type 
An enumeration type is is not allowed to have more than 256 constants. 


mismatch between VAR specifications 

A procedure in the implementation module has been specified as a VAR 
parameter while the procedure in the definition module has been specified 
as a value parameter, or vice versa. 

Example: 

Definition -> PROCEDURE sqrt(x: REAL) 

Implementation -> PROCEDURE sqrt(VAR x: REAL) 
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70 


71 


72 
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mismatch between type specifications 
A procedure parameter in the implementation module has been specified as 


being of a different type then a procedure parameter in the definition 
module. 


Example: 
Definition -> PROCEDURE sqrt(x: REAL); 
Implementation -> PROCEDURE sqrt(x: LONGINT); 


more parameters in DEF than in IMP 

The procedure in the implementation module has been specified with fewer 
parameters than are declared in the procedure heading in the definition 
part of the module. 

Example: 

Definition -> PROCEDURE sqrt(x: REAL t: LONGCARD) ; 

Implementation -> PROCEDURE sqrt(x: REAL); 


mismatch between result type specifications 

The procedure heading in the definition module specified a different return 
parameter type then the procedure defined in the implementation module. 
Example: 

Definition -> PROCEDURE sqrt(x: REAL): REAL; 

Implementation -> PROCEDURE sqrt(x: REAL): LONGINT; 


function in DEF, pure procedure in IMP 

The procedure heading in the definition module specified a return parameter 
for a procedure, but the procedure defined in the implementation module 
does not specify a return parameter 

Example: 

Definition -> PROCEDURE sqrt(x: REAL): REAL; 

Implementation -> PROCEDURE sqrt(x: REAL); 


procedure in DEF has parameters, but not in IMP 

The procedure heading in the definition modules is specified as having 
parameters, but the procedure defined in the implementation part is 
specified as not having any parameters. 

Example: 

Definition -> PROCEDURE sin(x: REAL); 

Implementation -> PROCEDURE sin; 


code procedure cannot be defined FORWARD or defined in DEF module 

There are two possible reasons for this error. An attempt is being made to 
defined a CODE procedure as FORWARD or the CODE procedure has already 
defined in the definition part of the library module currently being 
compiled. 


illegal type of control variable in FOR statement 
The control variable in a FOR statement can not be a component of a 
structured variable, it can not be imported, and it can not be a parameter. 
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procedure call of a function 
A procedure which specifies a return value can not be invoked via a 
procedure call statement, it can only be called from an expression. 


identifiers in heading and at end do not match 

The identifier specified at the beginning of a procedure or module is 
different from the identifier at the end of the module. Both identifiers 
must be the same. 

Example: 

PROCEDURE Init; 

BEGIN 


END Initialize; (* should be "Init" *) 


procedure already defined FORWARD 


The procedure currently being defined as FORWARD has already been defined 
as FORWARD earlier in the source file. 


body of FORWARD procedure undefined 

A procedure has been defined as FORWARD, but no corresponding procedure 
body has been defined in the current scope. This error occurs when the 
compiler reaches the end of the current scope. To eliminate the error 
examine the current scope for FORWARD definitions without corresponding 
Procedure body definitions at the same scope. 


unsatisfied export list entry 
An identifier specified in the export list of the current local module is 
not visible in the current local module. 


illegal type of procedure result 
The specified type conversion is illegal. 
Example: 


NodeRec(1@), where NodeRec is a RECORD type, is illegal. 


illegal base type of subrange 
The specified type is not valid as the base type of a subrange. 


illegal type of case expression 
The case expression is of a type that is invalid in a case statement. 


keys of imported symbol files do not match 

One or more of the modules being imported have not been recompiled after a 
definition module they depended on was changed, this has caused a key 
conflict between the modules. 


error in format of symbol file 
The symbol file currently being loaded is not a valid symbol file. 
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unresolved pointer type in current block 
A pointer type has been forward defined but has not been subsequently 
defined in the current block. 
Example: 
NRE 
MyObjPtr = POINTER TO MyObj; (* Forward Pointer Def *) 


symbol file not successfully opened 
An attempt to open a symbol file failed. Most likely the file was not found 


in the search through the symbol file directory(s) or the operating system 
may have locked it from being read. 


procedure declared in definition module, but not in implementation 
A procedure declared in the definition module has not been declared in the 
implementation module. 


illegal implementation of opaque type 

In this as in most implementations of Modula-2 an opaque type is limited in 
the types which it can represent. An opaque type is usually defined as a 
pointer, but in this implementation any simple type which is exactly 4 
bytes long is valid. 


too many cases 


The compiler allows a maximum of 128 cases or variants per case statement 
and variant record respectively. 


too many exit statements 
The compiler allows a maximum of 16 EXIT statements per LOOP..END block. 


index type of array must be a subrange 
The index specification for an array type must be a subrange. 


subrange bounds must be less than 2°15 
The bounds of a subrange type must be in the range of -32768 and 32767. 


too many global modules 


The module that is being imported is to complex and should be broken up 
into smaller modules. 


too many structure elements in definition module 


The module that is being imported is to complex and should be broken up 
into smaller modules. 


multiple definition within the same scope 

The identifier being declared already exists at the current scope. A new 
name should be chosen which would not conflict with the identifier already 
declared at the current scope level. 
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Error Messages 


illegal use of module 
No operations are possible on module identifiers. 


constant index out of range 

An array index has been specified which is outside the bounds of the array. 
Example: 

VAR LookupTable : ARRAY [G@..100] OF REAL; 


LookupTab1e[300] t= 1.2; (300 is out of bounds of the array) 


indexed variable is not an array, or the index has the wrong type 

The variable that is being indexed is not of an array type or the index is 
not compatible with the type of the array index. 

Example: 

VAR list : POINTER TO Node; 


list[oq t= NodePtr; (* "list" is not an array! *) 


record selector is not a field identifier 

The specified identifier is not a field of the record being referenced. 
Example: 

VAR node: RECORD x,y: CARDINAL; END; 


node. z t= 10; (* "z" is not defined as a field 4) 


dereferenced variable is not a pointer 

The variable being dereferenced in not a pointer, the dereference "~" 
operation can only be performed on a variable of a pointer type. 

Example: 

VAR ch : CHAR; 


ch” := "a"; (* "ch" is not a pointer *) 


operand type incompatible with sign inversion 
The negate operation only works for the following types: INTEGER, LONGINT 
or REAL. All other types are invalid. 


operand type incompatible with NOT 


The NOT operation only works for the BOOLEAN type. All other types are 
invalid. 


x IN y: type(x) # basetype(y) 

The IN operation requires that the element being tested be the same as the 
base type of the set. 

Example: 

x IN {4,6,10} is valid only if x is an INTEGER or CARDINAL. 


x IN y: type of x cannot be the basetype of a set, or y is not a set 


The expression "y" is not of a set type or "x" js not of a type which can 
be the basetype of a set. 
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{a..b}: type of either a or b is not equal to the base type of the set 
Either the lower or upper bounds of the set range is not compatible with 
the base type of the set. 


incompatible operand types 
The specified operands are not compatible with each other. 


operand type incompatible with * 
One or both of the operands are incompatible with the "*" operator. 


operand type incompatible with / 
One or both of the operands are incompatible with the "/" operator. The "/" 
operator is only valid for REAL or SET operand types. 


operand type incompatible with DIV 
One or both of the operands are incompatible with the "DIV" operator. 


operand type incompatible with MOD 
One or both of the operands are incompatible with the "MOD" operator. 


operand type incompatible with AND 
One or both of the operands are incompatible with the "AND" operator. 
The "AND" operator is only compatible with BOOLEAN operand types. 


operand type incompatible with + 
One or both of the operands are incompatible with the "+" operator. 


operand type incompatible with - 
One or both of the operands are incompatible with the "-" operator. 


operand type incompatible with OR 
One or both of the operands are incompatible with the "OR" operator. The 
"OR" operator is only compatible with BOOLEAN operand types. 


operand type incompatible with relation 
One or both of the operands are incompatible with relational operator. 


procedure must have level & 


Only a procedure which is not enclosed by any procedure can be assigned to 
a procedure variables or passed as a parameter. 


result type of P does not match that of T 

In order to assign the name of a procedure to a variable or pass a 
procedure as a parameter the parameter lists of the variable and the 
procedure must be identical. 


mismatch of a parameter of P with the formal type list of T 

In order to assign the name of a procedure to a variable or pass a 
procedure as a parameter the parameter lists of the variable and the 
procedure must be identical. 
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procedure has fewer parameters than the formal type list 

In order to assign the name of a procedure to a variable or pass a 
Procedure as a parameter the parameter lists of the variable and the 
procedure must be identical. 


Procedure has more parameters than the formal type list 

In order to assign the name of a procedure to a variable or pass a 
Procedure as a parameter the parameter lists of the variable and the 
procedure must be identical. 


assignment of a negative integer to a cardinal variable 
A negative integer constant can not be assigned to a cardinal variable. The 


above only applies to integer constants. Integer variables can be assigned 
to cardinal variables and vice-versa. 


incompatible assignment 


The object being assigned in not assignment compatible with the variable to 
which it is being assigned. 


assignment to non-variable 


The left side of an assignment statement must contain a variable identifier 
or designator. 


type of expression in IF, WHILE, UNTIL clause must be BOOLEAN 


The expressions for the statements IF, WHILE, UNTIL expect an expression of 
a BOOLEAN type. 


call of an object which is not a procedure 
The object being called is not a procedure. 


type of VAR parameter is not identical to that of actual parameter 
If a procedure specifies a parameter as VAR the actual parameter passed to 
a procedure must be identical to the type of the VAR parameter. 


constant outside of subrange bounds 
When assigning a constant to a variable of a subrange type the compiler 
performs range checking of the constant with the subrange of the variable. 


type of RETURN expression differs from procedure type 
The expression specified in a RETURN statement must be assignment 
compatible with the type of the return parameter. 


step in FOR clause cannot be @ 


When the optional BY clause is used in a FOR statement the constant 
expression which follows BY must not be zero. 


illegal type of control variable 


The contro] variable in a FOR loop must be one of the following: 
enumeration, BOOLEAN, CHAR, CARDINAL, INTEGER, LONGINT, or LONGCARD. 
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illegal type of FOR loop step 

The BY clause of a FOR statement specifies the increment of the FOR loop. 
The constant expression must be one of the following types: INTEGER, 
CARDINAL, LONGINT, or LONGCARD. 


incorrect type of parameter of standard procedure 
The parameter passed to the standard procedure was not of the correct type. 


this parameter should be a type identifier 
The standard procedure called expects a type identifier as a parameter, not 
a numerical expression. 


string is too long 


The specified string literal is too long to be assigned to the fixed size 
array variable. 


incorrect priority specification 


The module priority specification should be a CARDINAL constant between @ 
and 15. 


(not yet implemented) 


The source program uses an unimplemented function in the compiler. This 
error should not occur under normal circumstances. 


integer too small for sign inversion 
A constant integer with a value of -32768 can not be negated because the 
resulting value would be 32768 which is outside the range of integers. 


element outside of set range 


The specified element was outside the range defined by the set. 
Example: 


T = SET OF [10..30]; 1{5} (outside of set range) 


overflow in multiplication 
Two constant operands were multiplied resulting in an overflow. 


overflow in division 
Two constant operands were divided resulting in an overflow. 


division by zero, or modulus with negative value 
Two constant operands were divided resulting in a division by zero or the 
right operand in a modulus operation has a negative value. 


overflow in addition 
Two constant operands were added resulting in an overflow. 


overflow in subtraction 
Two constant operands were subtracted resulting in an overflow. 
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cardinal value assigned to integer variable too large 
A cardinal constant greater than 32767 can not be assigned to an integer as 
this is obviously an overflow of an integer. 


set size too large 

The specified set size is too large. The legal range for set elements is 
9..31. The size of the set will be adjusted automatically based on the 
upper bounds of the range. 

Example: 

SET OF [0..7]; (1 byte) 

SET OF [0..15] (2 bytes) 

SET OF [0..31] (4 bytes) 


array size too large 


The specified array size is too large. The maximum size of an array is 32K 
bytes. 


variable size too large 

Too much space has been allocated for variables local toa procedure or 
module. Each module and each procedure can have up to 32K bytes of 
variables declared. 


expression too complex (register overflow) 
The specified expression is too complex for the compiler to handle. To fix 


the problem simply break up the expression into two or more separate 
expressions. 


adr reloc buffer overflow 

The compiler’s address relocation buffer has overflowed. This can occur 
when your program references too many variables from other modules. To 
compile a program which encounters this problem, the compiler’s command 
line option "-a <AdrBufferSize>" maybe used. The size of this buffer may 
be increased permanently using the compiler configuration utility. 


too many strings 

The compiler’s string buffer has overflowed. This can occur when a program 
uses too many literal string constants. To compile a program which 
encounters this problem, the compiler’s command ine option "-b 
<StringBufferSize>" maybe used. The size of this buffer maybe increased 
permanently using the compiler configuration utility. 


program too long 

The compiler’s code buffer has overflowed. This can happen when a very 
large program is compiled. Tce compile a large program the compiler’s 
command line option "-c <CodeBufferSize>" maybe used. The size of this 
buffer maybe increased permanently using the compiler configuration 
utility. If the module is still to long then the module should be split up 
into two or more modules. 
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identifier buffer overflow 

The compiler’s identifier buffer has overflowed. This can happen when too 
many large symbol modules are imported or when a large program is compiled. 
To compile a large program the compiler’s command line option "-i 
<IdentBufferSize>" maybe used. The size of this buffer maybe increased 
permanently using the compiler configuration utility. 


heap overflow 

The compiler’s heap has overflowed. This can happen when too many large 
symbol modules are imported or when a large program is compiled. To 
compile a large program the compiler’s command line option "-h <HeapSize>" 
maybe used. The HeapSize has no limit except physical memory in the 
system. The size of the heap maybe increased permanently using the 
compiler configuration utility. 


expression not loadable 
Internal compiler error occurred in a redundancy check. 


expression not addressable 

An attempt is being made to determine the address of an object which does 
not have an address. For example using the ADR() standard function on a 
constant identifier. However, in this implementation it is possible to 
take the address of a string constant. 


expression not allowed 
Internal compiler error occurred in a redundancy check. 


illegal expression 
Internal compiler error occurred in a redundancy check. 


register reservation error 
Internal compiler error occurred in a redundancy check. 


illegal selector for constant index field 
Internal compiler error occurred in a redundancy check. 


too many WITH statements nested (> 4) 
A maximum of four WITH statements can be nested at one time. 


illegal size of operand 
Internal compiler error occurred in a redundancy check. 


Error Messages 


Description of Non Compilation Errors 





If the compiler is invoked from the CLI problems encountered by the 
compiler will be displayed on the console. These errors may not be directly 
related to the compilation. The following is a list of the possible error 
messages. 


Errors in Source File! 
This error indicates that the source file contained compilation errors. 
The error ister program should be run to display the actual errors 
encountered in the source file. 


Error Opening Source File! 
The specified source file can not be found. The probable cause of this 
error is that the wrong filename was specified for the name of the source 
file. 


Error Opening or Reading Symbol File! 
The symbol module file of a module being imported in the source file can 
not be found. This error usually occurs when the modules of a program are 
not compiled in the correct order. To fix the problem recompile the 
modules again in the proper order based on the module dependencies. 


Error Opening Refrence or Symbol File! 
This error occurs when the compiler has difficulty Opening an output file 
for a reference file or symbol file. This error is usually the result of 
attempting to output to a write protected disk or the disk has become full, 


Error Writing Refrence or Symbol File! 
This error occurs when the compiler encounters a disk error while writing 
out a reference or symbol file. This error may be the result of a disk 
becoming full. 


Error Opening or Writing Object File! 
This error occurs when the compiler encounters difficulties writing out an 
object file. This error may be the result of a write protected disk or a 
disk becoming full. 
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Description of Fatal Errors 





If the compiler is invoked from the CLI and a fatal error is encountered it 
will be displayed to the console. A fatal error is one which causes the 
compiler to abort and return to the CLI before it has completed its work. Each 
error message is preceded by "FATAL ERROR:" to alert the user of the seriousness 
of the error. 


Not Enough Memory to Continue! 
This error indicates that the compiler can not continue because it has run 
out of memory. A possible solution to this problem is to reduce the memory 
requirements of the compiler by using compiler command line options, such 
as, "-h" to reduce the compiler’s heap size. 


Invalid Command Line Argument: 
This error indicates that a command line option specified on the command 
line was invalid. An option may be considered invalid for one of several 
reasons. One possible reason is that it exceeds the maximum value allowed 
for that option. The invalid option is listed after the fatal error 
message. Refer to the chapter on the compiler for details of each compiler 
option. 


Opening Error Log File ’T:M2.err’! 
This error indicates that the compiler was not able to open an error log 
file. This error may occur for one of several reasons. The assignment for 
"T:" may not have been setup. Another possible reason is that the compiler 
has already been invoked from another CLI, this means that the "M2.err" 
file is already in use. 
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Modula-2 Linker Error Messages 





Most of the error messages produced by the linker are self explanatory. 
However, as further help this section contains a detailed explanation of each 
error message. Linker error messages begin with "ERROR:" to indicate that the 
information being displayed is an error and not just information which may be 
ignored. An error will cause the linker to abort the linking of the current 
Program. However if more than one program is specified to be linked, the linker 
will begin linking the next program specified on the command line. To abort a 
batch link after getting an error use the Ctr1-c key combination which will 
cause the linker to stop upon finishing linking the current program. Refer to 
the chapter of this manual which describes the linker for additional 
information. 


Can’t Open Obj File ’<FileName>’! 
An imported object module file could not be opened. The most probable 
reason for the error is the file was not found. The file may not have been 
found if the source file has not been compiled. 


Obj File ’<FileName>’ is Invalid! 
The specified object module file contains invalid information. This may 
occur if the object file being read is empty or contains garbage for some 
reason. If the file in question is one of the library modules included in 
this package restore the file from the original disk. Otherwise recompile 
the file and try another link. This error should be very rare. 


Obj File ’<FileName>’ Wrong Version! 
THe specified object module file was compiled with a version of the 
compiler which is not compatible with this version of the linker. The 


solution is to recompile the original file with a newer version of the 
compiler. 


Module ’<ModuleName>’ Has Bad Key! 
The specified object module file is incompatible with the other modules 
being imported. Specifically, one of the previous modules has already 
imported an older version of this module. Refer to the chapter on the 
linker for additional information on the version control system and what to 
do when a bad key is encountered. 


Not Enough Memory To Continue! 
The linker has run out of memory while linking. The linker is very memory 
efficient, however this error may occur if other tasks are taking up a lot 
of memory. The solution to this problem is to free up some memory and try 
the link operation again. 


Module ’<ModuleName>’ Imported By ’<ModuleName>’ Has Bad Key! 
The first <ModuleName> is imported by the module specified by the second 
<ModuleName>. However, the file has already been imported by another 
module using a different key. Refer to the chapter on the linker for 
additional information on the version control system and what to do when a 
bad key is encountered. 
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Can’t Open Output File ’<FileName>’! 
An output file could not be created. This error may occur if the disk 
specified for output is write protected. 


Module ’System’ Not Imported! 
After all of the modules were imported the module System was not one of the 
modules imported. This error should not occur under normal circumstances 
However, it may occur when linking one assembly language module with no 
import of System. 


Sym File ’<FileName>’ is Invalid! 
The symbol or reference file read by the linker is not valid. A possible 
reason for this error is a corrupt file, empty file or a file generated by 
an incompatible version of the compiler 


Sym File ’<FileName>’ Has Bad key! 
The symbol or reference file read by the linker has a key which is 
incompatible with the corresponding object module imported earlier. The 
solution to this problem is to recompile to get an up to date symbol or 
reference file. 
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EMACS Editor Error Messages 





The EMACS editor displays error messages on the bottom line of the display, 
called the echo line. This section is divided into three subsection which 
describe the EMACS error messages as they relate to editing, compiling, linking 
and miscellaneous operations. 


General Errors 


This subsection contains a description of the error messages produced by 
EMACS that relate to editing, windows, files and buffers. 


Display unusable 
The EMACS window has been made too small for the number of buffers that are 


currently being displayed. Increase the size of the window and the display 
will work correctly again. 


Cannot split a # line window 
Windows that have less than three lines can not be split. This message 


indicates that you are trying to split a window with Jess than three 
display lines. 


Can’t get # 
This message indicates that EMACS has run out of memory while trying to 
open a window. Free up memory by deleting some buffers. 


Only one window 
This message indicates that the window operation that is being attempted is 


inappropriate for a display with only one window open. For instance trying 
to increase the size of only one window is not possible. 


Impossible change 
This message indicates that the window operation that is being attempted is 
not possible. For example trying to shrink a window to less than one line. 


Keyboard macro overflow 


This message indicates that the current keyboard macro being defined is too 
long for EMACS to handle. 


No mark set in this window 
This error will occur when attempting a region operation before the "mark" 
has been set for that window. The solution is to specify a location for 
the "mark" and then perform the region operation. 


Region is too large 
The current region operation uses a region that is too large to be 
manipulated. The solution is to perform the operation in two or more steps 
using smaller regions. 
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[No match] 
This message may appear when EMACS can not find the object referred to by a 
given name. This error applies to commands, buffers and other named 
objects. 


eval-expression macro overflow 
An overflow has occurred during the operation of the eval-expression 
function. Reduce the size of the expression and try the operation again. 


Can’t get # bytes 
This message indicates that EMACS has run out of memory while trying to 
perform an operation. Free up memory by deleting some buffers 


Already defining kbd macro! 
This error is displayed if an attempt is made to begin a new macro 
definition, while EMACS is in the macro definition mode. 


Not defining kbd macro. 
This error is displayed if an attempt to end a macro definition is made 
while not in the macro definition mode. 


Not now 


This error is displayed if an attempt is made to execute a macro, while 
EMACS is in the macro definition mode. 


Search failed: "<String>" 
This message is displayed if the previous search operation did not find the 
search string in the buffer. 


No last search 
This message is display if the search-again command is issued and a search 
string has not been previously defined. 


Pattern too long 


The string pattern to be searched for is to long. Specify a shorter search 
pattern. 


No other window 


The previous command was directed towards another window, while the display 
currently contains only one window. 


Word too long! 
A single word containing more than 256 characters was encountered while 


filing a paragraph. This error should not be encountered under normal 
circumstances. 


Cannot insert buffer into self 


The previous operation attempted to insert the current buffer into itself 
This operation does not make sense and is illegal. 
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No file name 


This message appears when a buffer save operation is performed on a buffer 
which does not have an associated file name. To save the buffer use the 
write-file command. 


Can’t find <FontName> <FontSize>! 
The requested font of the specified size could not be found on disk. 


Examine the "fonts:" directory for the names of fonts available to the 
system. 


Cannot open file for writing 
The previous save operation failed because the output file could not be 


created. This error may occur due to a disk being write protected or the 
disk being full. 


Write I/O error 


The previous save operation failed because of an input/output error. This 


error may be the result of a disk becoming full or other disk related 
problems. 


File has long line 


The file that was read in the previous load operation contained one or more 
lines which contained too many characters for EMACS to handle. This type 
of error may occur when reading in a binary file or a file which does not 
have newline characters at the end of each line. 


File read error 


During the previous read operation an error was encountered. This may be 
the result of a corrupted file or other disk related problems. 
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Modula-2 Compiler Errors 





This subsection contains a description of the error messages produced by 
EMACS which are related to the Modula-2 Compiler. Each error message is 
preceded with "ERROR:" to get the users attention. 


Modula-2 Compiler Already Loaded! 
The compiler has already been loaded and made resident. If the reason for 
reloading the compiler is to specify mew command line parameters then the 
compiler should first be unloaded and then loaded again. 


Insufficient Memory to Allocate Stack for the Modula-2 Compiler! 
Not enough memory is available to allocate a stack for the Modula-2 
compiler. The reason for this problem could be that many large text files 
have been loaded into EMACS. Check the amount of memory currently 
available by using the free-mem-avail command and taking appropriate 
actions to free up additional memory. 


Modula-2 Compiler Not Found! 
The Modula-2 compiler was not found in the current directory, in any of the 
directories specified with the AmigaDOS PATH command or the "c:" directory. 
Put a copy of the Modula-2 compiler into one of the above specified 
directories and try the command again. 


Insufficient Memory to Load the Modula-2 Compiler! 
The Modula-2 compiler could not be loaded because not enough free memory is 
currently available in the system. Free up additional memory by removing 
other tasks or erasing some EMACS buffers. 


Modula-2 Compiler Loading Problem! 
The Modula-2 compiler could not be loaded for some unknown reason. A 
possible reason would be if the current directory contained a file called 
"M2" which contained text instead of the compiler code. Another similar 
problem could be a directory called "M2" in either the current directory or 
one of the directories in the AmigaDOS PATH. 


Invalid Arg String Passed to Modula-2 Compiler! 
The argument string passed to the compiler was invalid. The compiler is 
unloaded. Refer to the chapter on the compiler for information on the 
options accepted by the compiler. 


Insufficient Memory To Initialize Modula-2 Compiler 
The compiler ran out of memory while initializing. The compiler is 
automatically unloaded from memory. Free some additional memory and reload 
the compiler again. 


Buffer Not Found! 
The name of the buffer specified to be compiled could not be found 
Examine the buffer list to find the exact name of the buffer that needs to 
be compiled, 
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Stack Size Can Not Be Changed Now! 
EMACS does not allow the size of the compiler’s stack to be altered while 
the compiler is loaded. To change the size of the compiler’s stack unload 
the compiler, change the stack size and reload the compiler again. 


Buffer ’<BufferName>’ Not Found! (Error List Discarded) 
This message will appear when issuing a command to jump to an error 
position in a buffer which has been deleted from EMACS. The <BufferName> of 
the buffer containing the error position is displayed in the message. The 
error list becomes invalid when a buffer is deleted and is therefore 
discarded by EMACS. 


File ’<FileName>’ Not Loaded In Buffer! 


This message will appear when issuing a command to jump to an error 
position in a file which has not been loaded into a buffer. 


File ’<FileName>’ Not Loaded In Buffer! (Error List Discarded) 
This message will appear when issuing a command to jump to an error 
position in a file which has been loaded into a buffer, but the buffer has 
since been deleted. The error list becomes invalid when a buffer is 
deleted and is therefore discarded by EMACS. 


Compilation Aborted. File ’<FileName>’ Not Found! 
This message will be displayed if the compiler could not find the file 
specified to be compiled. Refer to the directory of the disk for the 
correct file name of the file that needs to be compiled. 


Compilation Aborted. Insufficient Memory to Compile Program! 

The compiler dynamically allocates memory for various tables before 
beginning compilation, this error will occur if there is not enough memory 
for the sizes of tables which need to be allocated. The solution to this 
problem is to reduce the sizes of the tables using the interactive command 
"“set-m2-comp-opt" or by reloading the compiler with a new argument string. 
Also it may be possible to delete some unused EMACS buffers freeing up 
additional memory. 


Compilation Aborted. Compiler’s Error Log File Not Opened! 
The compiler saves error to the error log file called "M2.err" in the 
directory "T:". A possible reason for this error is that the assignment 
for the "T:" directory has not been performed. Compilation can not take 
place unless this file can be opened successfully. 


Opening or Writing Output File Failed! 
The compilation was successful but the compiler encountered an error while 
trying to open or write the output file. This error may occur due to the 
disk being write protected or the disk may be full. Refer to the AmigaDOS 
reference manual for additional information. 
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Modula-2 Linker Errors 

This subsection contains a description of the error messages produced by 
EMACS which are related to the Modula-2 Linker. Each error message is preceded 
with "ERROR:" to get the users attention. 


The Main Module Has Not Been Specified! 
This error indicates that the "main" module has not been specified. Use 
the command set-m2-main-module to specify the name of the "main" module to 
be used. 


Unable To Open ’<FileName>’ As Output File! 
The linker was not able to open the <FileName> as the output file. This 
may occur if the directory specified for output files does not exist or 
other disk related problems have occurred. 


Insufficient Memory To Continue Linking Process! 
The linker has run out of memory while linking a program. This should not 
happen very often because the linker is very memory efficient. However if 
the problem does occur free up some memory and try the link operation 
again. 


Sym File ’<FileName>’ Has Bad Key! 
The symbol or reference file read by the linker has a_ key which is 
incompatible with the corresponding object module. The solution to this 
problem is to recompile to get an up to date symbol or reference fille. 


Sym File *<FileName>’ is Invalid! 
The symbol or reference file read by the linker is not valid. A possible 
reason for this error is a corrupt file, empty file or a file generated by 
an incompatible version of the compiler. 


Can’t Open Obj File ’<FileName>’! 
An imported object module file could not be opened. The most probable 
reason for the error is the file was not found. The file may not have been 
found if the source file has not been compiled. 


Obj File ’<FileName>’ is Invalid! 
The specified object module file contains invalid information. This may 
occur if the object file being read is empty or contains garbage for some 
reason. If the file in question is one of the library modules included in 
this package restore the file from the original disk. Otherwise recompile 
the file and try another link. This error should be very rare. 


Obj File ’<FileName>’ Wrong Version! 
THe specified object module file was compiled with a version of the 
compiler which is not compatible with this version of the linker. The 
solution is to recompile the original file with a newer version of the 
compiler. 
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Module ’<ModuleName>’ Has Bad Key! 
The specified object module file is incompatible with the other modules 
being imported. Specifically, one of the previous modules has already 
imported an older version of this module. Refer to the chapter on the 
linker for additional information on the version control system and what to 
do when a bad key is encountered. 


Module ’<ModuleName>’ Imported By *<ModuleName>’ Has Bad Key! 
The first <ModuleName> is imported by the module specified by the second 
<ModuleName>. However, the file has already been imported by another 
module using a different key. Refer to the chapter on the linker for 
additional information on the version control system and what to do when a 
bad key is encountered. 


Module ’System’ Not Imported! 
After all of the modules were imported the module System was not one of the 
modules imported. This error should not occur under normal circumstances. 


However, it may occur when linking one assembly language module with no 
import of System. 
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Modula-2 Run Errors 


This subsection contains a description of the error messages produced by 
EMACS which are related to running Modula-2 programs. Each error message is 
preceded with "ERROR:" to get the users attention. 


Program ’<FileName>’ Not Found! 
An attempt to run a user program failed because the specified <FileName> 
was not found. A possible reason for this error is that the program was 
never linked and so an executable file has not been generated. Another 


possible reason is that there is not enough memory to load the program into 
memory. 


Can’t Open Input/Output Window! 
An attempt to open an input/output for the user program has failed. One 
possible reason for this problem is that there was insufficient memory to 
open the window. Another possible reason is that the window specification 
was incorrect. Check the current window specification using the 
"set-m2-run-window" command and change if necessary. 
Example: 
RAW: 0/0/328/100/ 
CON: 10/100/100/50/ 


Invalid Input/Output Window Specification! 
An incorrect window specification has been setup using the 
"set-m2-run-window" command. The specification caused a disk file to be 
opened, instead of a window. A window specification must begin with "RAW:" 
or "CON:" and must be followed by the window dimensions. 
Example: 
RAW: 0/0/320/100/ 
CON: 10/100/100/50/ 


Insufficient Memory To Start User Process! 
The system does not have sufficient memory to start user program. Since 
the program is already in memory the most likely reason for this error is 
that the user program stack is too large to fit into memory, if possible 
reduce the size of the stack using the "set-m2-run-stack-size" command. 
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Miscellaneous Errors 


This subsection contains a description of the error messages produced by 
EMACS which are miscellaneous. Each error message is preceded with "ERROR:" to 
get the users attention. 


Invalid Directory Path! 
This error is displayed if the user has specified an invalid directory path 
in response to the prompt to change the current directory. A possible 


reason for this error is specifying a path for a volume which is not 
currently mounted. 
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Modula-2 Error Lister Error Messages 


The error lister may generate a fatal error message if it has problems with 
opening or reading the error log file. An error message begins with "FATAL 
ERROR:" followed by a message. 


Err Log File ’T:M2.err’ Not Found! 
The error log file could not be found in the "T:" directory. This error 
may occur if the "T:" assignment has not been set using the "ASSIGN" 
command or the file "M2.err" does not exist 


Err Log File ’T:M2.err’ Is Invalid! 
The error log file contains invalid data. This error should not occur 
normally. The solution is to erase the "M2.err" file and perform another 
compilation producing a valid error log file. 
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Modula-2 Object Module Generator 





Most of the error messages produced by the object module generator are 
related to inconsistencies between the definition and implementation modules. 
Each error message is preceded with "ERROR:" to get the users attention. 


Wrong Number of Parameters. 
An incorrect number of parameters have been specified on the command line. 


Refer to the documentation for the object module generator for the proper 
command line syntax. 


Input File ’<FileName>.SBM’ Could Not Be Opened. 
The specified symbol file could not be opened. Usually indicates that the 
file does not exist in the specified directory. 


Input File ’<FileName>.COD’ Could Not Be Opened. 


The specified code file could not be opened. Usually indicates that the 
file does not exist in the specified directory. 


Gutput File ’<FileName>.OBM’ Could Not Be Opened. 
An output file could not be created. This error may result if the disk 
being written to is write protected or the disk has become full. 


Input File ’<FileName>.SBM’ is Invalid. 


The symbol file was found but contains invalid data. Generate a new symbol 
file and try the operation again. 


Input File ’<FileName>.COD’ is Invalid. 
The code file was found but contains invalid data. This error may result 
due to an error in the format of the file, caused by an improper assembly 
language program. Refer to the documentation on the assembly language 
interface for additional information. 


SBM_Procedures < COD Procedures. 
The definition module defines fewer procedures than are declared in the 


implementation module. Examine the definition and implementation modules 
to resolve the conflict. 


SBM_Procedures > COD Procedures. 


The definition module defines more procedures than are declared in the 
implementation module. Examine the definition and implementation modules 
to resolve the conflict. 


SBM_Variables < COD Variables. 
The size of variables in the definition module is smaller than the mapping 
used in the implementation module for those variables. 


SBM_Variables > COD Variables. 


The size of variables in the definition module is larger than the mapping 
used in the implementation module for those variables. 
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SBM_Modules < COD_Modules. 
The number of modules imported in the definition module is inconsistent 
with the number of modules imported in the implementation module. 


SBM_Modules > COD_Modules. 
The number of modules imported in the definition module is inconsistent 
with the number of modules imported in the implementation module. 


Input File ’<FileName>.COD’ does not have a *hunk_end’ after *hunk_code’ 
After the hunk_code additional blocks of data were found. This is 
incorrect the code block should be followed by a hunk_end directive. Refer 
to the assembly language interface documentation for further information. 


Internal. Memory Allocation Failure! 
The object module generator has run out of memory. This can only happen if 
another application program has allocated a lot of memory. Remove any 
other tasks running from memory and then run the program again. 
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Appendix B Command Summaries 
Modula-2 Compiler........ 
Modula-2 Linker..... 
Modula-2 Error Lister... .5. 2.6. ...06 
Modula-2 Compiler Configuration Utility... 
Modula-2 Symbol File Cross Reference Utility. 
Modula-2 Procedure Statistics Utility 
Modula-2 Object Module Generator. 
Quick Loader Utility.......... 
EMACS Editor 
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Command Summaries 


This appendix contains a quick reference summary of the command line usage 
and commands for each software tool. For addition information on a given 
command refer to the appropriate chapter of this manual. 

Modula-2 Compiler 


Command Line Usage: 


M2 [Options] [SourceFile] [SourceFile] ... 


Options: 

-s <DirectoryPath> Symbol File Search Path 

-o <DirectoryPath> Output File Directory 

-r Range Checking Toggle 

“Vv Overflow Checking Toggle 

-g Generate Refrence File Toggle 

-1 Generate 32-bit Addressing Toggle 
-k Version Control Key to Zero Toggle 
-h <Size> Heap Size 

-i <Size> Identifier Buffer Size 

-e <Size> Code Buffer Size 

-a <Size> Address Relocation Buffer Size 

-b <Size> Constant Buffer Size 

-d <Size> Disk Buffer Size 


Modula-2 Linker 
Command Line Usage: 


M2Lk [Options] <MainModule> [MainModule] ... 


Options: 

-s <DirectoryPath> Input Files Search Path 

-o <DirectoryPath> Output File Directory 

-d Generate Debugging Symbols 

-a Prefix Symbols With Module Name 
-g Generate Source Level Debug Info 
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Modula-2 Error Lister 
Command Line Usage: 


M2Err [Options] 


Options: 
-W Output Error List To A Window 
-p Pause After Each Error 


Modula-2 Compiler Configuration Utility 





Command Line Usage: 


M2Config [Options] <M2_FileName> 


Options: 
-d Reset To Default Configuration 
7s Show Current Configuration With No Change 


Modula-2 Symbol File Cross Reference Utility 





Command Line Usage: 


M2SymXRef <FileList> <OutputFile> 


Modula-2 Procedure Statistics Utility 





Command Line Usage: 


M2Stat <ProgFileName> [ProgParameters] 


Modula-2 Object Module Generator 





Command Line Usage: 
M2Gen08M [Options] <InputFileName> [OutputFileName] 
Options: 


-m Skip Imported Modules Check 


Command Summaries 


Quick Loader Utility 


Command Line Usage: 


QLoad <QuickFile> <OutputPath> 
QLoad -m <FileList> <QuickFile> 


EMACS Editor 
Command Line Usage: 


M2Ed [FileName] [FileName] ... 


Functions: 


Cursor Commands 


backward-char { Ctri-B ] 
backward-paragraph { Ese-[ J 
backward-word [ Ese-B ] 
beginning-of-buffer { Ese-< 
beginning-of-line [ Ctri-A J 
end-of-buffer { Ese-> ] 
end-of-line ( tri-E 
forward-char ( Ctri-F j 
forward-paragraph [ ese=]) 3] 
forward-word (ieSe=te 4 
goto-line { Ese-G ] 
next- line { Ctri-N J 
previous-line fctmeP | 


Window Commands 


delete-other-windows [ Ctrl-x 1 ] 
delete-window [ Ctri-x oj 
enlarge-window [eGenl=X 5 
next-window [ Ctr1-X N or Ctr1-x 0 ] 
previous-window [ Ctrl-X P J 
recenter ( Ctri-b 
scrol1-down [ Ese-V 
scrol]-other-window { Ese Ctri-v ] 
scroll-up [ Ctri-V J 
shrink-window 

split-window-vertically [ Ctnlex 2°] 


Buffer Commands 


insert-buffer 
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kill-buffer 

list-buffers 

not-modified 
switch-to-buffer 
switch-to-buffer-other-window 


File Commands 


current-dir 
exact-fname-mode 
file-req-mode 
find-file 
find-file-other-window 
insert-file 
make-backup-files 
save-buffer 
save-buffers-kill-emacs 
save-some-buffers 
write-file 


Copy/Delete/Kill Commands 





backward-delete-char 
backward-kill-word 
copy-region-as-kill 
delete-blank-lines 
delete-char 
kill-line 
kill-paragraph 
kill-region 
kill-word 

yank 


Search/Replace Commands 


isearch-backward 
isearch-forward 
query-replace 
search-again 
search-backward 
search- forward 


Case Commands 
capitalize-word 
downcase-region 


downcase-word 
upcase-region 
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seem aon 





amen 


Coals Leelee! 


ctr1-x K ] 
Ctr1-X Ctr1-B ] 
Ese-" J 

Ctr1-xX B 
ctrl-x 4B ] 


Ctri-X Ctrl-F or 
Ctri-X 4 F or 
Ctr1-X I ] 


Ctri-X Ctr1-S or 
Ctr1-X Ctrl-C ] 
Ctri-X S$ ] 

Ctr1-X Ctr1-W or 


CtrisH on 

Ese Backspace ] 
Esc-W ] 

Cenex Ctri<0) ] 
Ctpili-D) or DEL | 
Ctrl-K ] 

Ctri-W J 

Esc-D or Esc DEL J 


ctrl-Y ] 


Ctri-R J 
Ctri-S 
Esc-% ] 
Esc-A) ] 
Ese-R J 
Ese-S J 


Esc-C J 
Ctr1-xX Ctr1-L ] 
Ese-L ] 
Ctr1-X Ctri-U J 


F9 J 


Shift-F9 ] 


F10 J 


Shift-F10 ] 


BackSpace ] 





upcase-word 


Key Binding Commands 


describe-bindings 
describe-key-briefly 
global-set-key 
global -unset-key 
help 


Macro Commands 


call-last-kbd-macro 
end-kbd-macro 
start-kbd-macro 


Fill Mode Commands 


auto-fil1-mode 
fi11-paragraph 
insert-with-wrap 
set-fill-column 


Expression Commands 


eval-current-buffer 
eval-expression 
load 


Miscellaneous Commands 


auto-indent-mode 
blink-matching-paren 
blink-matching-paren-hack 
ctr1x-four-hack 
delete-horizontal-space 
exchange-point-and-mark 
execute-extended-command 
free-mem-avail 
insert-newline 
just-one-space 
keyboard-quit 
newline-and- indent 
open-line 

overwrite-mode 
prefix-region 
redraw-display 


morn 


[os Las les Len Uap a an Le Le Ld 


Command Summaries 


Esc-U ] 


HELP J 


Ctri-X E ] 
Ctrl-X ) ] 
Ctrl-x ( J 


Esc-Q ] 
Ctrl-X F J 


Ctri-X 4] 
Ctri-\ J 

Ctri-xX Ctr1-X ] 
Ese-X ] 
Shift-F5 ] 
Return ] 
Esc-Space ] 
Ctrl-G ] 

Ctri-J ] 

Ctri-0 ] 
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quoted-insert 
self-insert-command 
set-mark-command 
set-prefix-string 
suspend-emacs 
transpose-chars 
what-cursor-position 


Mouse Commands 





amiga-mouse 
mouse-recenter 
mouse-kill-word 
mouse-kil]-line 
mouse-delete-char 

mouse- just-one-space 
mouse-kill-region 
mouse-yank 
mouse-scrol1-up 
mouse-scrol1-down 
mouse-split-window-vertically 
mouse-delete-window 

mouse -beginning-of -buffer 
mouse-end-of-buffer 

mouse -enlarge-window 
mouse-shrink-window 


Display Setup Commands 


set-mode-background 
set-mode- foreground 
set-mode-rendition 
set-text-background 
set-text-foreground 
set-text-rendition 
toggle-window-hack 


Modula-2 Compiler Commands 





m2-comp- load 
m2-comp-unload 
m2-comp-current-buffer 
m2-comp-buffer 
m2-comp-file 
m2-err-current-error 
m2-err-next-error 
set-m2-comp-opt 
set-m2-comp-stack-size 
set-m2-err-count 
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if 
[ 
[ 


I, 
(i 


memes 


ctr1-a@ ] 
ctrl-@ ] 


Ctrl-Z ] 
Conlin | 
Ctr1-X = ] 


FB ] 
Shift-F8 J 
F2 ] 
Shift-F2 ] 
F5 ] 
F1-Shift ] 
Fl] 


Modula-2 Linker Commands 





m2-link-main 
m2-1ink-module 
set-m2-1link-out-dir 
set-m2-1ink-gen-sym 
set-m2-main-module 
set-m2-obj-dir 


Modula-2 Run Commands 


m2-run-main 
m2-run-module 
set-m2-run-args 
set-m2-run-stack-size 
set-m2-run-window 


F3 ] 
Shift-F3 ] 
Shift-F6 ] 
Shift-F7 ] 
F6 ] 
F7 ] 


F4 ] 
Shift-F4 ] 
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Arrow Key Bindings 
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| Key Shift 
[PLere 

| Left s 

| Right 

| Right * 

| Up 

| Up * 

| Down 

| Down * 





io paradise agente 
| Command 





* 

| 

+ 
| backward-char | 
| backward-word | 
| forward-char | 
| forward-word | 
| previous-line | 
| | 
| | 
| | 
5 os 


backward-paragraph 
next- line 
forward-paragraph 





Fl m2-err-next-error 
Fl % m2-err-current-error 
F2 m2-comp-current-buffer 
[ us m2-comp-buffer 
F3 m2-1ink-main 
F3 x m2-1ink-module 
F4 m2-run-main 
F4 * m2-run-module 
FS m2-comp-file 
FS * free-mem-avail 
Fé set-m2-main-module 
Fé * set-m2-1ink-out-dir 
F7 set-m2-obj-dir 
F7 i set-m2-1ink-gen-sym 
F8 m2-comp- load 
F8 » m2-comp-unload 
FO find-file 
FO * find-file-other-window 
F10 save-buffer 
F1o * write-file 
BY es ICH IS a SR SEEN I a) + 


Command Summaries 


Mouse Keyboard Combination Bindings 





Text Area Commands 





| Ctrl Alt Shift 


pecan Bee ae stars 


| Command | 
procter renee eee eee eee eee eee + 
| amiga-mouse | 
| mouse-recenter | 
| mouse-kil1-word | 
| mouse-kill-line | 
| mouse-delete-char | 
| mouse - just -one-space | 
| mouse-kill-region | 
| | 


| 
| 
| 
| * * 
| 
| 
| mouse-yank 





Mode Line Commands 


r 
| 
a 
| mouse-scroll-up 
* | ~=mouse-scro11-down 
| 
| 
| 
| 
| 
| 


mouse-split-window-vertically 


* * mouse-delete-window 
* 
bs * mouse-end-of-buffer 
* - mouse-enlarge-window 
* * * 


| 
| 
| 
mouse-beginning-of-buffer | 
| 
| 
| 


mouse-shrink-window 





fs 
| 
+ 
| switch-to-buffer 
* | kill-buffer 
| describe-key-briefly 
| 
| 
| 
| 
| 


describe-bindings 
* 
5 * save-buffers-kill-emacs 
a * list-buffers 
* * * 


| 
| 
| 
suspend-emacs | 
| 
| 
| 


toggle-window-hack 
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Definition Modules Cross Reference 


This appendix contains a cross reference of the identifiers defined in the 
definition modules. In addition, the class(CONST, TYPE, VAR or PROCEDURE) of 
each identifier is shown in the right column of the cross reference. 





Identifier Module Type 
ABC Blit CONST 
AbleICR CIAResource PROCEDURE 
aBMS PrinterDevice CONST 
ABNC Blit CONST 
AbortI0 I0Devices PROCEDURE 
aCAM PrinterDevice CONST 
AccessRead AmigaDOS CONST 
AccessWrite AmigaDOS CONST 
ACK ASCII CONST 
ActionCopyDir AmigaDOSProcess CONST 
ActionCreateDir AmigaDOSProcess CONST 
ActionCurrentVolume AmigaDOSProcess CONST 
ActionDeleteObject AmigaDOSProcess CONST 
ActionDie AmigaDOSProcess CONST 
ActionDiskChange AmigaDOSProcess CONST 
ActionDiskInfo AmigaDOSProcess CONST 
ActionDiskType AmigaDOSProcess CONST 
ActionEvent Ami gaDOSProcess CONST 
ActionExamineNext AmigaDOSProcess CONST 
ActionExamineOb ject AmigaDOSProcess CONST 
ActionFreeLock AmigaDOSProcess CONST 
ActionGetBlock AmigaDOSProcess CONST 
ActionInfo Ami gaDOSProcess CONST 
ActionInhibit AmigaDOSProcess CONST 
ActionLocateOb ject AmigaDOSProcess CONST 
ActionNIL Ami gaDOSProcess CONST 
ActionParent AmigaDOSProcess CONST 
ActionRead AmigaDOSProcess CONST 
ActionRenameDisk AmigaDOSProcess CONST 
ActionRenameObject AmigaDOSProcess CONST 
ActionSetComment Ami gaDOSProcess CONST 
ActionSetFileDate AmigaDOSProcess CONST 
ActionSetMap Ami gaDOSProcess CONST 
ActionSetProtect Ami gaDOSProcess CONST 
ActionSetRawMode Ami gaDOSProcess CONST 
ActionTimer AmigaDOSProcess CONST 
ActionWaitChar AmigaDOSProcess CONST 
ActionWrite AmigaDOSProcess CONST 
Activate Intuition CONST 
ActivateGadget Intuition PROCEDURE 
ActivateWindow Intuition PROCEDURE 
ActiveWindow Intuition CONST 
ADA11locMaxPrec AudioDevice CONST 
ADA11ocMinPrec AudioDevice CONST 
ADCmdAl locate Audi oDevice CONST 
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ADCmdFinish AudioDevice CONST 
ADCmdF ree AudioDevice CONST 
ADCmdLock AudioDevice CONST 
ADCmdNoUnit AudioDevice CONST 
ADCmdPerVol AudioDevice CONST 
ADCmdSetPrec AudioDevice CONST 
ADCmdWaitCycle AudioDevice CONST 
AddAnimO0b Gels PROCEDURE 
AddBob Gels PROCEDURE 
AddConfigDev Expansion PROCEDURE 
AddDevice 10Devices PROCEDURE 
AddDosNode Expansion PROCEDURE 
AddFont Text PROCEDURE 
AddFreeList Workbench PROCEDURE 
AddGadget Intuition PROCEDURE 
AddGList Intuition PROCEDURE 
AddHead Lists PROCEDURE 
AddICRVector CIAResource PROCEDURE 
AddintServer Interrupts PROCEDURE 
AddLibrary Libraries PROCEDURE 
AddMemList Memory PROCEDURE 
AddPort Ports PROCEDURE 
AddResource Resources PROCEDURE 
AddSemaphore Semaphores PROCEDURE 
AddTail Lists PROCEDURE 
AddTask Tasks PROCEDURE 
AddTime TimerDevice PROCEDURE 
AddVSprite Gels PROCEDURE 
aDEN1 PrinterDevice CONST 
aDEN2 PrinterDevice CONST 
aDEN3 PrinterDevice CONST 
aDEN4 PrinterDevice CONST 
aDEN5 PrinterDevice CONST 
aDEN6 PrinterDevice CONST 
ADHardChannels AudioDevice CONST 
ADIOErrAllocFailed AudioDevice CONST 
ADIOErrChannelStolen AudioDevice CONST 
ADIOErrNoAl location AudioDevice CONST 
ADIONoWait AudioDevice CONST 
ADIOPerVol AudioDevice CONST 
ADIOSyncCycle AudioDevice CONST 
ADIOWriteMessage AudioDevice CONST 
ADKFast ADKHardware CONST 
ADKMFMPrec ADKHardware CONST 
ADKMSBSync ADKHardware CONST 
ADKPre@@ONS ADKHardware CONST 
ADKPre14QNS ADKHardware CONST 
ADKPre28QNS ADKHardware CONST 
ADKPre56QNS ADKHardware CONST 
ADKPreCompS ADKHardware CONST 
ADKPreComp1 ADKHardware CONST 
ADKSetC1r ADKHardware CONST 


c-4 


ADKUARTBrk 
ADKUse@P1 
ADKUse@V1 
ADKUse1P2 
ADKUse1V2 
ADKUse2P3 
ADKUse2V3 
ADKUse3PN 
ADKUse3VN 
ADKWordSync 
ADNStartProc 
aEXTEND 
AF10 

AF11 

AF12 

AF13 

AF14 

AF15 

AF2 

AF3 

AF4 

AFS 

AF6 
AF68010 
AF68020 
AF68881 
AF7 

AF8 

AF9 
AFDisk 
AFMemory 
aFNTO 
aFNTL 
aFNT10 
aFNT2 
aFNT3 
aFNT4 
aFNT5S 
aFNT6 
aFNT7 
aFNT8 
aFNT9 
AGIOError 
AGMakeLib 
AGNoMemory 
AGNoSignal 
AGOpenDev 
AGOpenLib 
AGOpenRes 
aHTS 

aIND 
aJFY@ 


ADKHardware 
ADKHardware 
ADKHardware 
ADKHardware 
ADKHardware 
ADKHardware 
ADKHardware 
ADKHardware 
ADKHardware 
ADKHardware 
Expansion 
PrinterDevice 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
ExecBase 
ExecBase 
ExecBase 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
PrinterDevice 
PrinterDevice 
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PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
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Alerts 

Alerts 

Alerts 

Alerts 

Alerts 

Alerts 
PrinterDevice 
PrinterDevice 
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aJFY1 PrinterDevice CONST 
aJFY3 PrinterDevice CONST 
aJFY5 PrinterDevice CONST 
aJFY6 PrinterDevice CONST 
aJFY7 PrinterDevice CONST 
Alert Alerts PROCEDURE 
AlertLayersNoMem Clipping CONST 
AlertType Intuition CONST 
AllocAbs Memory PROCEDURE 
ALLOCATE Heap PROCEDURE 
Allocate Memory PROCEDURE 
ALLOCATE Storage PROCEDURE 
AllocBoardMem Expansion PROCEDURE 
AllocCList CList PROCEDURE 
AllocConfigDev Expansion PROCEDURE 
AllocEntry Memory PROCEDURE 
AllocExpansionMem Expansion PROCEDURE 
AllocMem Memory PROCEDURE 
AllocPotBits PotgoResource PROCEDURE 
AllocRaster Rasters PROCEDURE 
AllocRemember Intuition PROCEDURE 
AllocSignal Tasks PROCEDURE 
AllocTrap Tasks PROCEDURE 
aLMS PrinterDevice CONST 
AlohaWorkbench IntuitionBase PROCEDURE 
AlphabetChars ASCII CONST 
AlphaP101 Preferences CONST 
AltKeyMap Intuition CONST 
AltLeft Intuition CONST 
AltRight Intuition CONST 
AmigaKeys Intuition CONST 
AmigaLeft Intuition CONST 
AmigaRight Intuition CONST 
ANAddSWGadget Alerts CONST 
ANAsyncPkt Alerts CONST 
ANAudioDev Alerts CONST 
ANBadChkSum Alerts CONST 
ANBadExpansionFree Alerts CONST 
ANBadGadget Alerts CONST 
ANBadMessage Alerts CONST 
ANBadOver lay Alerts CONST 
ANBadSegList Alerts CONST 
ANBadState Alerts CONST 
ANBaseChkSum Alerts CONST 
ANBC Blit CONST 
ANBitMap Alerts CONST 
ANB1tBitMap Alerts CONST 
ANBNC. Blit CONST 
ANBogusExcpt Alerts CONST 
ANBootError Alerts CONST 
ANBootStrap Alerts CONST 
ANCIARsre Alerts CONST 
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ANCListLib Alerts CONST 
ANConsoleDev Alerts CONST 
ANCreatePort Alerts CONST 
ANDiskB1kSeq Alerts CONST 
ANDiskCopy Alerts CONST 
ANDiskError Alerts CONST 
ANDiskRsrc Alerts CONST 
ANDOSLib Alerts CONST 
AndRectRegion Regions PROCEDURE 
AndRegionRegion Regions PROCEDURE 
ANDRHasDisk Alerts CONST 
ANDRIntNoAct Alerts CONST 
aNEL PrinterDevice CONST 
ANEndTask Alerts CONST 
ANExcptVect Alerts CONST 
ANExecLib Alerts CONST 
ANExpansionLib Alerts CONST 
AnFracSize Gels CONST 
ANFreeTwice Alerts CONST 
ANFreeVec Alerts CONST 
ANGadgetType Alerts CONST 
ANGamePortDev Alerts CONST 
ANGfxNoLCM Alerts CONST 
ANGfxNoMem Alerts CONST 
ANGraphicsLib Alerts CONST 
ANIconLib Alerts CONST 
Animate Gels PROCEDURE 
AnimComp Gels TYPE 
AnimCompProc Gels TYPE 
AnimCompPtr Gels TYPE 
AnimHalf Gels CONST 
AnimOb Gels TYPE 
AnimObProc Gels TYPE 
AnimObPtr Gels TYPE 
ANInitAPtr Alerts CONST 
ANIntrMem . Alerts CONST 
ANIntuition Alerts CONST 
ANItemA1 loc Alerts CONST 
ANItemBoxTop Alerts CONST 
ANKeyboardDev Alerts CONST 
ANKeyFree Alerts CONST 
ANKeyRange Alerts CONST 
ANLayersLib Alerts CONST 
ANLayersNoMem Alerts CONST 
ANLibChkSum Alerts CONST 
ANLibMem Alerts CONST 
ANLongFrame Alerts CONST 
ANMakeVPort Alerts CONST 
ANMathLib Alerts CONST 
ANMemCorrupt Alerts CONST 
ANMiscRsrc Alerts CONST 
ANNoConsole Alerts CONST 
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ANOpenScreen Alerts CONST 
ANOpenScrnRast Alerts CONST 
ANOpenWindow Alerts CONST 
ANP laneAl loc Alerts CONST 
ANQPktFail Alerts CONST 
ANRAMLib Alerts CONST 
ANRegionMemory Alerts CONST 
ANSemCorrupt Alerts CONST 
ANShortFrame Alerts CONST 
ANStartMem Alerts CONST 
ANSubA1 loc Alerts CONST 
ANSysScrnType Alerts CONST 
ANTDCalibSeek Alerts CONST 
ANTDDelay Alerts CONST 
ANTextTmpRas Alerts CONST 
ANTimerDev Alerts CONST 
ANTMBadReq Alerts CONST 
ANTMBadSupply Alerts CONST 
ANTrackDiskDev Alerts CONST 
ANWeirdEcho Alerts CONST 
ANWorkbench Alerts CONST 
AnySignal Tasks CONST 
AnySprite Sprites CONST 
AnyTrap Tasks CONST 
AQAudioDev Alerts CONST 
AQBootStrap Alerts CONST 
AOCIARsre Alerts CONST 
AOCListLib Alerts CONST 
AQConsoleDev Alerts CONST 
AODiskRsrc Alerts CONST 
AQDOSLib Alerts CONST 
AQExecLib Alerts CONST 
AOExpansionLib Alerts CONST 
AOGamePortDev Alerts CONST 
AOGraphicsLib Alerts CONST 
AOIconLib Alerts CONST 
AOIntuition Alerts CONST 
AOKeyboardDev Alerts CONST 
AQLayersLib Alerts CONST 
AOMathLib Alerts CONST 
AOMiscRsre Alerts CONST 
AORAMLib Alerts CONST 
AorB Blit CONST 
AorC Blit CONST 
AOTimerDev Alerts CONST 
AOTrackDiskDev Alerts CONST 
AOWorkbench Alerts CONST 
aPERF PrinterDevice CONST 
aPERFO PrinterDevice CONST 
aPLD PrinterDevice CONST 
aPLU PrinterDevice CONST 
aPROPO PrinterDevice CONST 
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aPROP1 
aPROP2 
arccos 
arcsin 
arctan 
AreaCircle 
AreaDraw 
AreaE1lipse 
AreaEnd 
AreaInfo 
AreaInfoPtr 
AreaMove 
AreaQutline 
arge 

argv 

aRL 

aRIN 

aRIS 

aRMS 

aSBC 

aSFC 

aSGRO 
aSGR1 
aSGR22 
aSGR23 
aSGR24 
aSGR3 
aSGR4 
AShiftShift 
aSHORPO 
aSHORP1 
aSHORP2 
aSHORP3 
aSHORP4 
aSHORP5S 
aSHORP6 
AskFont 
AskSoftStyle 
aSLPP 
aSLRM 
AspectHoriz 
AspectVert 
aSTBM 
aSUS@ 
aSUS1 
aSUS2 

aSUS3 
aSUS4 
aTBCO 
aTBCl 

aTBC3 

aTBC4 


PrinterDevice 
PrinterDevice 
MathLiba 
MathLibg 
MathLiba 
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Areas 

Rasters 
System 
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PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
Blit 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
Text 

Text 
PrinterDevice 
PrinterDevice 
Preferences 
Preferences 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
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CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
TYPE 

TYPE 
PROCEDURE 
CONST 

VAR 
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CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
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PROCEDURE 
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aTBCALL 

aTBSALL 
ATDeadEnd 

aTMS 

AtoD 

ATRecovery 

aTSS 
AttemptLockLayerRom 
AttemptSemaphore 
AudChanne1 
AudChannelPtr 
AudioChannelsSet 
AudioName 

AUL 

AUserStuff 
AutoBackPen 
AutoDrawMode 
AutoFrontPen 
AutoITextFont 
AutoKnob 
AutoLeftEdge 
AutoNextText 
AutoRequest 
AutoTopEdge 
Available 
Available 
AvailFont 
AvailFontPtr 
AvailFonts 
AvailFontsHeader 
AvailFontsHeaderPtr 
AvailFontType 
AvailFontTypeSet 
Avai1Mem 

aVERPO 

aVERP1 

aVTS 

AxorC 

B2Bobber 

B2Norm 

B2Swap 

BackDrop 
BackSaved 
Baud110 
Baud1200 
Baud19200 
Baud2400 
Baud390 
Baud4800 
Baud9600 
BaudMIDI 
BBNameDos 
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PrinterDevice 
PrinterDevice 
Alerts 
PrinterDevice 
Blit 

Alerts 
PrinterDevice 
RomLayers 
Semaphores 
CustomHardware 
CustomHardware 
AudioDevice 
AudioDevice 
Blit 

Gels 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Heap 

Storage 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
Memory 
PrinterDevice 
PrinterDevice 
PrinterDevice 
Blit 

Gels 

Gels 

Gels 
Intuition 
Gels 
Preferences 
Preferences 
Preferences 
Preferences 
Preferences 
Preferences 
Preferences 
Preferences 
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BBNameKick BootBlock CONST 
BDrawn Gels CONST 
Beeping Intuition CONST 
BeginI0 I0Devices PROCEDURE 
BeginRefresh Intuition PROCEDURE 
BeginUpdate Layers PROCEDURE 
BehindLayer Layers PROCEDURE 
BEL ASCII CONST 
BF14 Gels CONST 
BF15 Gels CONST 

BF2 Gels CONST 

BF3 Gels CONST 

BF4 Gels CONST 

BF5 Gels CONST 

BF6é Gels CONST 

BF7 Gels CONST 
BIF1 Intuition CONST 
BIF10 Intuition CONST 
BIF11 Intuition CONST 
BIF12 Intuition CONST 
BIF13 Intuition CONST 
BIF14 Intuition CONST 
BIF15 Intuition CONST 
BIF2 Intuition CONST 
BIF3 Intuition CONST 
BIF4 Intuition CONST 
BIF5 Intuition CONST 
BIF6 Intuition CONST 
BIF7 Intuition CONST 
BIF8 Intuition CONST 
BIF9 Intuition CONST 
BitMap Graphics TYPE 
BitMapPtr Graphics TYPE 
BlitMsgFault GraphicsBase CONST 
BlitReverse Blit CONST 
BItBitMap Blit PROCEDURE 
B1tBitMapRastPort Blit PROCEDURE 
BltClear Blit PROCEDURE 
BltClearFlagsSet Blit TYPE 
BltClearWait Blit CONST 
BltClearXxy Blit CONST 
B1tMaskBitMapRastPort Blit PROCEDURE 
bltnode Blit TYPE 
bitnodeptr Blit TYPE 
BltPattern Blit PROCEDURE 
BitTemplate Blit PROCEDURE 
BndryOff Drawing PROCEDURE 
Bob Gels TYPE 
BobF lags Gels TYPE 

BobF lagsSet Gels TYPE 
BobIsComp Gels CONST 
BobNix Gels CONST 
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BobPtr Gels TYPE 
BobsAway Gels CONST 
BobUpdate Gels CONST 
Bold Text CONST 
BoolExtend Intuition CONST 
BoolGadget Intuition CONST 
BoolInfo Intuition TYPE 
BoolInfoF lags Intuition TYPE 
BoolInfoF lagsSet Intuition TYPE 
BoolInfoPtr Intuition TYPE 
BoolMask Intuition CONST 
BootBlock BootBlock TYPE 
BootBlockPtr BootBlock TYPE 
BootSects BootBlock CONST 
Border Intuition YPE 
BorderHit Gels CONST 
Borderless Intuition CONST 
BorderPtr Intuition TYPE 
BottomBorder Intuition CONST 
BottomHit Gels CONST 
BoundaryColMask Gels TYPE 
BoundaryColProc Gels TYPE 

BPTR AmigaDOS TYPE 
Brother15XL Preferences CONST 

BS ASCII CONST 
BShiftshift Blit CONST 
BSTR AmigaDOS TYPE 
BufferSize FileSystem VAR 

Bui 1dSysRequest Intuition PROCEDURE 
BumpRevision Workbench PROCEDURE 
BUserF lags Gels CONST 
BUserStuff Gels TYPE 
BusyRead Terminal PROCEDURE 
BWaiting Gels CONST 

CAN ASCII CONST 
Cause Interrupts PROCEDURE 
CBOCurrentReadID ClipboardDevice CONST 
cCBOCurrentWriteID ClipboardDevice CONST 
CBDPost ClipboardDevice CONST 
CBErrObsoleteID ClipboardDevice CONST 
CBMMPS1000 Preferences CONST 
CBump Copper PROCEDURE 
CDAskDefaul tKeyMap ConsoleDevice CONST 
CDAskKeyMap ConsoleDevice CONST 
CDConfigMe Expansion CONST 
CDSetDefaultKeyMap ConsoleDevice CONST 
CDSetKeyMap ConsoleDevice CONST 
cCOShutup Expansion CONST 
CEND CopperUtil PROCEDURE 
ChangeSprite Sprites PROCEDURE 
CharCases ASCII TYPE 
CharIsASCIL ASCII PROCEDURE 
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CharIsControl ASCII PROCEDURE 
CharIsPrintable ASCII PROCEDURE 
Checked Intuition CONST 
CheckIO TODevices PROCEDURE 
CheckIt Intuition CONST 
CheckWidth Intuition CONST 
CIA CIAHardware TYPE 
ciaa CIAHardware VAR 
CIAAName CIAResource CONST 
ciab CIAHardware VAR 
CIABITS CIAHardware TYPE 
CIABName CIAResource CONST 
CIAComCD CIAHardware CONST 
CIAComCTS CIAHardware CONST 
CIAComDSR CIAHardware CONST 
CIAComDTR CIAHardware CONST 
CIAComRTS CIAHardware CONST 
CIAcraINMODE CIAHardware CONST 
CIAcraLOAD CIAHardware CONST 
CIAcraQUTMODE CIAHardware CONST 
CIAcraPBON CIAHardware CONST 
CIAcraRUNMODE CIAHardware CONST 
CIAcraSPMODE CIAHardware CONST 
CIAcraSTART CIAHardware CONST 
CIAcraTODIN CIAHardware CONST 
CIAcrbALARM CIAHardware CONST 
CIAcrbInCNT CIAHardware CONST 
CIAcrbInCNTTA CIAHardware CONST 
CIAcrbINMODEO CIAHardware CONST 
CIAcrbINMODE1 CIAHardware CONST 
CIAcrbInPHI2 CIAHardware CONST 
CIAcrbInTA CIAHardware CONST 
CIAcrbLOAD CIAHardware CONST 
CIAcrbOUTMODE CIAHardware CONST 
CIAcrbPBON CIAHardware CONST 
CIAcrbRUNMODE CIAHardware CONST 
CIAcrbSTART CIAHardware CONST 
CIADskChange CIAHardware CONST 
CIADSkDIREC CIAHardware CONST 
CIADSkMOTOR CIAHardware CONST 
CIADskProt CIAHardware CONST 
CIADSkRdy CIAHardware CONST 
CIADSkKSELO CIAHardware CONST 
CIADSkKSEL1 CIAHardware CONST 
CIADSKSEL2 CIAHardware CONST 
CIADSkKSEL3 CIAHardware CONST 
CIADSKSIDE CIAHardware CONST 
CIADSkSTEP CIAHardware CONST 
CIADskTrack® CIAHardware CONST 
CIAGamePortd CIAHardware CONST 
CIAGamePorti CIAHardware CONST 
CIAicrALRM CIAHardware CONST 
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CIAicrFLG CIAHardware CONST 
CIAicrIR CIAHardware CONST 
CIAicrSETCLR CIAHardware CONST 
CIAicrsP CIAHardware CONST 
CIAicrTA CIAHardware CONST 
CIAicr1TB CIAHardware CONST 
CIALED CIAHardware CONST 
CIAOverlay CIAHardware CONST 
CIAPAD CIAHardware TYRE 
CIAPrtrBUSY CIAHardware CONST 
CIAPrtrPOUT CIAHardware CONST 
CIAPrtrSEL CIAHardware CONST 
CIAPtr CIAHardware TYPE 
CINIT CopperUtil PROCEDURE 
CleanMe Blit CONST 
CleanUp Blit CONST 
ClearDMRequest Intuition PROCEDURE 
ClearEOL Drawing PROCEDURE 
ClearMenuStrip Intuition PROCEDURE 
ClearPointer Intuition PROCEDURE 
ClearRectRegion Regions PROCEDURE 
ClearRegion Regions PROCEDURE 
ClearScreen Drawing PROCEDURE 
ClipBlit Blit PROCEDURE 
ClipboardUnitPartial ClipboardDevice TYPE 
ClipboardUnitPartialPtr ClipboardDevice TYPE 
ClipRect Clipping TYPE 
ClipRectPtr Clipping TYPE 
CLIReturnCode System VAR 
CListBase CList VAR 
CListDesc CList TYPE 
CListName CList CONST 
CListPool CList TYPE 
Close AmigaDOS PROCEDURE 
Close FileSystem PROCEDURE 
Close Intuition CONST 
CloseDevice I0Devices PROCEDURE 
CloseFont Text PROCEDURE 
CloseInput InOut PROCEDURE 
CloseLibrary Libraries PROCEDURE 
CloseMathLibd InitMathLibd PROCEDURE 
CloseOutput Indut PROCEDURE 
CloseScreen Intuition PROCEDURE 
Closewindow Intuition CONST 
CloseWindow Intuition PROCEDURE 
CloseWorkBench Intuition PROCEDURE 
CmdClear I0Devices CONST 
CmdF lush I0Devices CONST 
CmdInvalid I0Devices CONST 
CmdLineLength System VAR 
CmdLinePtr System VAR 
CmdNonStd I0Devices CONST 
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CmdRead 

CmdReset 
CmdStart 

CmdStop 
CmdUpdate 
CmdWrite 

CMove 

CMOVE 

CmpTime 
collTable 
collTablePtr 
ColorMap 
ColorMapPtr 
ColorOn 
ColorTable 
ColorTablePtr 
CommandLineInter face 
CommandLineInterfacePtr 
CommSeq 
CommWidth 
CompareString 
CompareStringCAP 
Complement 
ConcatCList 
ConcatString 
ConfigBoard 
ConfigChain 
ConfigDev 
ConfigDevPtr 
ConsoleBase 
ConsoleName 
Control 
ControlShift 
ConUnit 
ConUnitPtr 
ConvNumberToString 
ConvRealToString 
ConvStringToNumber 
ConvStringToReal 
ConvStringToUpperCase 
copinit 
copinitPtr 
CopIns 

CopInsPtr 
CopList 
CopListPtr 
CopperMove 
CopperWait 
CopyCList 
CopyMem 
CopyMemQuick 
CopySBitMap 


TdDevices 
I0Devices 
I0Devices 
I0Devices 
T0Devices 
I0Devices 
Copper 
CopperUtil 
TimerDevice 
Gels 

Gels 

Views 

Views 

Display 

Views 

Views 
AmigaDOSExt 
Ami gaDOSExt 
Intuition 
Intuition 
Strings 
Strings 
Rasters 

CList 

Strings 
Expansion 
Expansion 
Expansion 
Expansion 
ConsoleDevice 
ConsoleDevice 
ASCII 

ASCII 
ConsoleDevUnit 
ConsoleDevUnit 
Conversions 
RealConversions 
Conversions 
RealConversions 
Strings 
Copper 

Copper 

Copper 

Copper 

Copper 

Copper 

Copper 

Copper 

CList 

Memory 

Memory 
RomLayers 
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CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
TYPE 

TYPE 

TYPE 

TYPE 
CONST 
TYPE 

TYPE 

TYPE 

TYPE 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
TYPE 

TYPE 

VAR 

CONST 
CONST 
CONST 
TYPE 

WYRE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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CopySet LargeSets PROCEDURE 
CopyString Strings PROCEDURE 
cos MathLib@ PROCEDURE 
cosh MathLib& PROCEDURE 
eprlist Copper TYPE 
eprlistPtr Copper TYPE 
CprNtLof Copper CONST 
CprNtsht Copper CONST 
CprNxtBuf Copper CONST 

CR ASCII CONST 
CreateBehindLayer Layers PROCEDURE 
CreateDir AmigaDOS PROCEDURE 
CreateExtI0 I0DevicesUtil PROCEDURE 
CreatePort PortsUtil PROCEDURE 
CreateProc AmigaDOSProcess PROCEDURE 
CreateSet LargeSets PROCEDURE 
CreateStdI0 I0DevicesUtil PROCEDURE 
CreateTask TasksUtil PROCEDURE 
CreateUpfrontLayer Layers PROCEDURE 
CRNeedsNoConcealedRasters Clipping CONST 
CTCHC1rTab ConsoleDevice CONST 
CTCHC1rTabsA11 ConsoleDevice CONST 
CTCHSetTab ConsoleDevice CONST 
CurrentBinding Expansion TYPE 
CurrentBindingPtr Expansion TYPE 
CurrentDir AmigaDOS PROCEDURE 
CurrentTask Tasks CONST 
CurrentTime Intuition PROCEDURE 
CursorDown Intuition CONST 
CursorLeft Intuition CONST 
CursorRight Intuition CONST 
CursorUp Intuition CONST 
Custom CustomHardware TYPE 
custom CustomHardware VAR 
Custom Preferences CONST 
CustomBitmap Intuition CONST 
CustomName Preferences CONST 
CustomPtr CustomHardware TYPE 
CustomScreen Intuition CONST 
CWait Copper PROCEDURE 
CWAIT CopperUtil PROCEDURE 
DACBindT ime ConfigRegs CONST 
DACBootT ime ConfigRegs CONST 
DACBusWidth ConfigRegs CONST 
DACByteWide ConfigRegs CONST 
DACConfigT ime ConfigRegs CONST 
DACNever ConfigRegs CONST 
DACNibbleWide ConfigRegs CONST 
DACWordWide ConfigRegs CONST 
DateStamp AmigaDOS PROCEDURE 
DateStampPtr AmigaDOS TYPE 
DateStampRecord AmigaDOS TYPE 
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Ob1PF Display CONST 
OBuffer Rasters CONST 
OBufPacket Gels TYPE 
OBufPacketPtr Gels TYPE 

DC1 ASCII CONST 

Dc2 ASCII CONST 

Dc3 ASCII CONST 

oc4 ASCII CONST 
DeadEndAlert Intuition CONST 
DeadPrefix KeyMapResource TYPE 
DeadPrefixSet KeyMapResource TYPE 
DEALLOCATE Heap PROCEDURE 
Deallocate Memory PROCEDURE 
DEALLOCATE Storage PROCEDURE 
DEBI ksPerTrack FileHandler CONST 
Debug Exec PROCEDURE 
Decimal RealConversions CONST 
DecimalChars ASCII CONST 
DeferRefresh Intuition CONST 
DefFreq NarratorDevice CONST 
DefMode NarratorDevice CONST 
DefPitch NarratorDevice CONST 
DefRate NarratorDevice CONST 
DefSex NarratorDevice CONST 
DefVol NarratorDevice CONST 
DegToRad MathLibo PROCEDURE 
DEInter leave FileHandler CONST 

DEL ASCII CONST 
Delay AmigaDOSProcess PROCEDURE 
Delete FileSystem PROCEDURE 
DeleteExtIO I0DevicesUtil PROCEDURE 
DeleteFile AmigaDOS PROCEDURE 
DeleteLayer Layers PROCEDURE 
DeletePort PortsUtil PROCEDURE 
DeleteSet LargeSets PROCEDURE 
DeleteStdI0 I0DevicesUtil PROCEDURE 
DeleteSubString Strings PROCEDURE 
DeleteTask TasksUti] PROCEDURE 
DELowCy1 FileHandler CONST 
DeltaMove Intuition CONST 
DEMemBufType FileHandler CONST 
DENumBuffers FileHandler CONST 
DENumHeads FileHandler CONST 
DEPrefac FileHandler CONST 
DEReservedBlks FileHandler CONST 
DESecOrg FileHandler CONST 
DESecsPerB1k FileHandler CONST 
Designed Text CONST 
DESizeBlock FileHandler CONST 
Dest Blit CONST 
DETableSize FileHandler CONST 
OEUpperCy1 FileHandler CONST 
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DevAbortIO 
DevBegin10 
Device 
DeviceData 
DeviceDataPtr 
DeviceList 
DeviceListPtr 
DeviceNode 
DeviceNodePtr 
DeviceProc 
DevicePtr 

DFHID 

DFtchMask 
Diab630 
DiabAdvD25 
DiabC15a 
DiagArea 
DiagAreaPtr 

Diff 

Disable 
DiscResource 
DiscResourceF lags 
DiscResourceF lagsSet 
DiscResourcePtr 
DiscResourceUnit 
DiscResourceUnitPtr 
DiskFont 
DiskfontBase 
DiskFontHeader 
DiskFontHeaderPtr 
DiskfontName 
DiskInserted 
DiskName 
DiskObject 
DiskObjectPtr 
DiskObjectType 
DiskRemoved 
DisownBlitter 
DisplayAlert 
DisplayBeep 
DisposeLayerInfo 
DisposeRegion 
DIVS32 

DIVU32 
OIWHorizPos 
DIWVrtc1Pos 
DIWVrtclPosShift 
DLE 

DLTDevice 
DLTDirectory 
DLTVolume 

DMAA11 
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I0Devices 
I0Devices 
I0Devices 
PrinterBase 
PrinterBase 
AmigaDOSExt 
Ami gaDOSExt 
FileHandler 
FileHandler 
AmigaDOSProcess 
I0Devices 
DiskFont 
Display 
Preferences 
Preferences 
Preferences 
ConfigRegs 
ConfigRegs 
LargeSets 
Interrupts 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
Text 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
Intuition 
DiskResource 
Workbench 
Workbench 
Workbench 
Intuition 
Blit 
Intuition 
Intuition 
Layers 
Regions 
System 
System 
Display 
Display 
Display 
ASCII 

Ami gaDOSExt 
Ami gaDOSExt 
AmigaDOSExt 
DMAHardware 


CONST 
CONST 
TYPE 

WWRE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 
PROCEDURE 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 

TYPE 
PROCEDURE 
PROCEDURE 
TYPE 
TYPE 

TYPE 

TYRE 
TYPE 
TYPE 
CONST 
VAR 

TYPE 
TYPE 
CONST 
CONST 
CONST 
TYPE 

TYPE 

TYPE 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
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OMAAud@ DMAHardware CONST 
DMAAud1 DMAHardware CONST 
DMAAud2 DMAHardware CONST 
DMAAud3 OMAHardware CONST 
DMAAudio OMAHardware CONST 
OMAB1itHog DMAHardware CONST 
OMABlitter DOMAHardware CONST 
DMAB1tDone OMAHardware CONST 
DOMAB1tNZero OMAHardware CONST 
OMACopper DMAHardware CONST 
DMADisk OMAHardware CONST 
DMAMaster OMAHardware CONST 
OMARaster OMAHardware CONST 
DMASetCir OMAHardware CONST 
OMASprite OMAHardware CONST 
DoCollision Gels PROCEDURE 
DoIO I0Devices PROCEDURE 
done FileSystem CONST 
Done Indut VAR 

Done LongInOut VAR 

Done RealInOut VAR 

Done TermIndut VAR 
DOSBase System VAR 
DosInfo Ami gaDOSExt RE 
DosInfoPtr AmigaDOSExt TYPE 
DosLibrary Ami gaDOSExt TYPE 
DosLibraryPtr Ami gaDOSExt TYPE 
DOSName AmigaDOS CONST 
DosPacket AmigaDOSProcess TYPE 
DosPacketPtr Ami gaDOSProcess TYPE 
DoubleClick Intuition PROCEDURE 
DP1 KeyMapResource CONST 

OP2 KeyMapResource CONST 
DP2DFacShift KeyMapResource CONST 
OP2DIndexMask KeyMapResource CONST 
OPDead KeyMapResource CONST 
DPMod KeyMapResource CONST 
DRActive DiskResource CONST 
Oraft Preferences CONST 
DRA1loc@ DiskResource CONST 
DRA11oc1 DiskResource CONST 
DRA11oc2 DiskResource CONST 
ORA110c3 DiskResource CONST 
ORA11ocUnit DiskResource CONST 
Draw Drawing PROCEDURE 
DrawBorder Intuition PROCEDURE 
OrawCircle Drawing PROCEDURE 
DrawE1lipse Drawing PROCEDURE 
DrawerData Workbench TYPE 
DrawerDataFileSize Workbench CONST 
OrawerDataPtr Workbench TYPE 
DrawGList Gels PROCEDURE 
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DrawImage 
DrawModeSet 
DRF4 

DRF5S 

DRF6 
ORFreeUnit 
DRGetUnit 
DRGetUnitID 
DRGiveUnit 
Orive35 
Drive525 
ORLastComm 
DRT37422D2S 
DRTAmiga 
ORTEmpty 
DskDMAOff 
DSRCPR 
DualPF 
DupLock 


e 

Echo 

Echo 
ECIInt2Pend 
ECIInt6Pend 
ECIInt7Pend 
ECIIntEna 
ECIInterrupting 
ECIReset 
EExpansionBase 
EExpansionSize 
EExpansionSlots 
EightLPL 

Elite 

EM 

EMemoryBase 
EMemorySize 
EMemorySlots 
Enable 
EndGadget 
EndRefresh 
EndRequest 
EndUpdate 

ENQ 

Enqueue 

entier 

eof 

EOL 

EOL 

EOT 

Epson 
EpsonJX80 
equal 


C-20 


Intuition 
Rasters 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
TrackDiskDevice 
TrackDiskDevice 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
DiskResource 
ConsoleDevice 
Views 
AmigaDOS 
MathLiba 
InOut 
TermInOut 
ConfigRegs 
ConfigRegs 
ConfigRegs 
ConfigRegs 
ConfigRegs 
ConfigRegs 
ConfigRegs 
ConfigRegs 
ConfigRegs 
Preferences 
Preferences 
ASCII 
ConfigRegs 
ConfigRegs 
ConfigRegs 
Interrupts 
Intuition 
Intuition 
Intuition 
Layers 

ASCII 

Lists 
MathLib& 
Terminal 
InOut 
TermInOut 
ASCII 
Preferences 
Preferences 
Strings 


PROCEDURE 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
VAR 

VAR 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
PROCEDURE 
PROCEDURE 
VAR 

CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
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ERFMemSpace ConfigRegs CONST 
ERFNoShutup ConfigRegs CONST 
ErrorActionNotKnown AmigaDOS CONST 
ErrorBadStreamName AmigaDOS CONST 
ErrorCommentTooBit AmigaDOS CONST 
ErrorDeleteProtected AmigaDOS CONST 
ErrorDeviceNotMounted AmigaDOS CONST 
ErrorDirectoryNotEmpty AmigaDOS CONST 
ErrorDirNotFound Ami gaDOS CONST 
ErrorDiskFull AmigaDOS CONST 
ErrorDiskNotValidated AmigaDOSs CONST 
ErrorDiskWriteProtected AmigaDOS CONST 
ErrorFileNotObject AmigaDOS CONST 
ErrorInvalidComponentName AmigaDOS CONST 
ErrorInvalidlLock AmigaDOS CONST 
ErrorInvalidResidentLibrary AmigaDOS CONST 
ErrorLineTooLong AmigaDOS CONST 
ErrorNoDefaultDir AmigaDOs CONST 
ErrorNoDisk AmigaDOS CONST 
ErrorNoFreeStore AmigaDOS CONST 
ErrorNoMoreEntries AmigaDOSs CONST 
ErrorNotADosDisk AmigaDOS CONST 
ErrorObjectExists AmigaDOS CONST 
ErrorObjectInUse AmigaDOS CONST 
ErrorObjectNotFound AmigaDOS CONST 
ErrorObjectTooLarge AmigaDOS CONST 
ErrorObjectWrongType AmigaDOS CONST 
ErrorReadProtected AmigaDOS CONST 
ErrorRenameAcrossDevices AmigaDOS CONST 
ErrorSeekError AmigaDOS CONST 
ErrorTaskTableFull AmigaDOS CONST 
ErrorTooManyLevels AmigaDOSs CONST 
ErrorWriteProtected AmigaDOS CONST 
ERTChainedConfig ConfigRegs CONST 
ERTDiagValid ConfigRegs CONST 
ERTMemBit ConfigRegs CONST 
ERTMemList ConfigRegs CONST 
ERTMemMask ConfigRegs CONST 
ERTMemSize ConfigRegs CONST 
ERTNewBoard ConfigRegs CONST 
ERTTypeBit ConfigRegs CONST 
ERTTypeMask ConfigRegs CONST 
ERTTypeSize ConfigRegs CONST 
ESC ASCII CONST 
ESlotMask ConfigRegs CONST 
ESlotShift ConfigRegs CONST 
ESlotSize ConfigRegs CONST 
ETB ASCII CONST 
ETOClear TrackDiskDevice CONST 
ETOFormat TrackDiskDevice CONST 
ETDMotor TrackDiskDevice CONST 
ETDRawRead TrackDiskDevice CONST 
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ETDRawWrite 
ETDRead 

ETDSeek 
ETDUpdate 
ETOWrite 

ETX 

Examine 
ExclElement 
Exc1Range 
ExclusiveLock 
ExecBase 
ExecBase 
ExecBasePtr 
ExecName 
Execute 

Exit 

ExNext 

exp 
ExpansionBase 
ExpansionControl 
ExpansionControlPtr 
ExpansionName 
ExpansionRom 
ExpansionRomPtr 
Extended 
ExtractSubString 
ExtraHalfBrite 
FABSd 

FABSS 

FADDd 

FADDS 

FanFold 

FCHID 

FCMPd 

FCMPS 

FDIVd 

FDIVS 

Female 

FF 

FibArchive 
FibDelete 
FibExecute 
FibRead 
FibWrite 

File 

FileHandle 
FileHandlePtr 
FileHandleRecord 
Fi leInfoBlock 
FileInfoBlockPtr 
FileLock 
FileLockPtr 
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TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
ASCII 

AmigaDOS 
LargeSets 
LargeSets 
AmigaDOS 
ExecBase 

System 

ExecBase 

Exec 

AmigaDOS 
AmigaDOSProcess 
AmigaDOS 
MathLib@ 
Expansion 
ConfigRegs 
ConfigRegs 
Expansion 
ConfigRegs 
ConfigRegs 

Text 

Strings 

Views 

System 

System 

System 

System 
Preferences 
DiskFont 
System 

System 

System 

System 
NarratorDevice 
ASCII 

AmigaDOS 
AmigaDOS 
AmigaDOS 
AmigaDOS 
AmigaDOS 
FileSystem 
AmigaDOS 
AmigaDOSExt 
AmigaDOSExt 
AmigaDOS 
AmigaDOS 
AmigaDOS 

Ami gaDOSExt 


CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
TYPE 

VAR 

TYPE 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
VAR 

TYPE 

TYPE 
CONST 
TYPE 

TYPE 
CONST 
PROCEDURE 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYRE: 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYRE 


Fi leLockRecord 
FileNameSize 
FilePtr 
FileSysStartupMsg 
FileSysStartupMsgPtr 
FillCarryIn 
Fillor 

FillXor 
FindConfigDev 
FindName 
FindPort 
FindResident 
FindSemaphore 
FindTask 
FindToolType 
Fine 

FLOATd 

FLOATS 

FLONG 

Flood 
FlushCList 
FMULd 

FMULS 

FNEGd 

FNEGs 

Fol lowMouse 
FontContents 
FontContentsHeader 
FontContentsHeaderPtr 
FontContentsPtr 
FontF lags 

FontF lagsSet 
FontStyle 
FontStyleSet 
Forbid 
FreeBoardMem 
FreeCList 
FreeColorMap 
FreeConfigDev 
FreeCopList 
FreeCprList 
FreeDiskObject 
FreeEntry 
FreeExpansionMem 
FreeFreeList 
FreeGBuffers 
FreeHeap 
FreeHoriz 
FreeList 
FreeListPtr 
FreeMem 
FreePotBits 


AmigaDOSExt 
Preferences 
FileSystem 
FileHandler 
Fi leHandler 
Blit 

Blit 

Blit 
Expansion 
Lists 

Ports 
Resident 
Semaphores 
Tasks 
Workbench 
Preferences 
System 
System 
System 
Drawing 
CList 
System 
System 
System 
System 
Intuition 
DiskFont 
DiskFont 
DiskFont 
DiskFont 
Text 

Text 

Text 

Text 
Interrupts 
Expansion 
CList 
Views 
Expansion 
Copper 
Copper 
Workbench 
Memory 
Expansion 
Workbench 
Gels 

Heap 
Intuition 
Workbench 
Workbench 
Memory 
PotgoResource 
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TYPE 
CONST 
nYPE: 

TYPE 

TYPE 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
TYPE 

TYPE 

TYPE 

TYRE 

TYPE 

WRE 

TYPE 

TYPE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
TYPE 

TYPE 
PROCEDURE 
PROCEDURE 
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FreeRaster Rasters PROCEDURE 
FreeRemember Intuition PROCEDURE 
FreeSignal Tasks PROCEDURE 
FreeSprite Sprites PROCEDURE 
FreeSysRequest Intuition PROCEDURE 
FreeTrap Tasks PROCEDURE 
FreeVert Intuition CONST 
FreeVPortCopLists Views PROCEDURE 
FREMd System PROCEDURE 
FREMs System PROCEDURE 
FrstDot Rasters CONST 

ES ASCII CONST 
FSHORT System PROCEDURE 
FSUBd System PROCEDURE 
FSUBs System PROCEDURE 
GadgBackFil1 Workbench CONST 
GadgDisabled Intuition CONST 
Gadget Intuition TYPE 
Gadgetaag2 Intuition CONST 
GadgetActivation Intuition TYPE 
GadgetActivationSet Intuition TYPE 
GadgetDown Intuition CONST 
GadgetF lags Intuition TYPE 
GadgetF lagsSet Intuition TYPE 
GadgetMutualExcludeSet Intuition TYPE 
GadgetPtr Intuition TYPE 
GadgetType Intuition CONST 
GadgetTypeSet Intuition TYPE 
GadgetUp Intuition CONST 
GadgHBox Intuition CONST 
GadgHComp Intuition CONST 
GadgHighBits Intuition CONST 
GadgHImage Intuition CONST 
GadgHNone Intuition CONST 
GadgImage Intuition CONST 
GadgImmediate Intuition CONST 
GamePortTrigger GamePortDevice TYPE 
GamePortTriggerPtr GamePortDevice TYPE 
GelColProc Gels TYPE 
GelGone Gels CONST 
GelsInfo Gels TYPE 
GelsInfoPtr Gels TYPE 
GENLOC GraphicsBase CONST 
GenLockAudio Views CONST 
GenLockVideo Views CONST 
GetCC Exec PROCEDURE 
GetCLBuf CList PROCEDURE 
GetCLChar CList PROCEDURE 
GetCLWord CList PROCEDURE 
GetColorMap Views PROCEDURE 
GetCurrentBinding Expansion PROCEDURE 
GetDefPrefs Preferences PROCEDURE 
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GetDiskObject 
GetGBuffers 
GetIcon 
GetMsg 
GetPacket 
GetPos 
GetPrefs 
GetRGB4 
GetScreenData 
GetSprite 

GFo 

GFL 

GfxBase 
GfxBase 
GfxBasePtr 
GimmeZeroZero 
GPCTAbsJoystick 
GPCTA1 located 
GPCTMouse 
GPCTNoController 
GPCTRelJoystick 
GPDAskCType 
GPDAskTrigger 
GPDErrSetCType 
GPDReadEvent 
GPDSetCType 
GPDSetTrigger 
GPT10 

GPT11 

GPT12 

GPT13 

GPT14 

GPT15 

GPT2 

GPT3 

GPT4 

GPT5 

GPT6 

GPT7 

GPT8 

GPT9 
GPTDownKeys 
GPTKeys 
GPTKeysSet 
GPTUpKeys 
GraphicsName 
greater 
GRelBottom 
GRelHeight 
GRelRight 
GRelWidth 

GS 


Workbench 

Gels 

Workbench 
Ports 
AmigaDOSProcess 
FileSystem 
Preferences 
Views 
Intuition 
Sprites 
Intuition 
Intuition 
GraphicsBase 
System 
GraphicsBase 
Intuition 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
GamePortDevice 
Graphics 
Strings 
Intuition 
Intuition 
Intuition 
Intuition 
ASCII 
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PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
CONST 
TYPE 

VAR 

TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 

GYRE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
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GzzGadget 

HALTX 

HAM 
HexadecimalChars 
HighBox 

HighComp 

HighF lags 
HighImage 
HighItem 

HighNone 

Hires 

HoldNModi fy 
HPLaserJet 
HPLaserJetPlus 
HSizeBits 
HSizeMask 

HT 

IconBase 

IconName 

IDCMPF lags 
IDCMPF1lagsSet 
IDDosDisk 
IDKickStartDisk 
IDNoDiskPresent 
IDNotReallyDos 
IDUnreadableDisk 
IDValidated 
IDValidating 
IDWriteProtected 
IEClass 

IEClass5 
IEClassActiveWindow 
IEClassCloseWindow 
IEClassDiskInserted 
IEC1assDiskRemoved 
IEClassEvent 
IEClassGadgetDown 
IEClassGadgetUp 
IEClassInactiveWindow 
IEClassMax 
IEClassMenuList 
IEClassNewPrefs 
IEClassNu11 
IEClassPointerPos 
IEClassRawKkey 
IEClassRawMouse 
IEClassRefreshWindow 
IEClassRequester 
IEClassSizeWindow 
IEClassTimer 
IECodeASCIIDel 
IECodeASCIIFirst 
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Intuition 
System 
Views 

ASCII 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Views 
Display 
Preferences 
Preferences 
Blit 

Blit 

ASCII 
Workbench 
Workbench 
Intuition 
Intuition 
AmigaDOS 
AmigaDOS 
AmigaDOS 
AmigaDOS 
AmigaDOS 
AmigaDOS 
AmigaDOS 
AmigaDOS 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 


CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
VAR 
CONST 
TYPE 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 


IECodeASCIILast 
IECodeCOFirst 
TECodeCOLast 
IECodeC1First 
IECodeCiLast 
IECodeCommCodeFirst 
IECodeCommCodeLast 
IECodeKeyCodeFirst 
IECodeKeyCodeLast 
IECodeLatiniFirst 
IeECodeLatiniLast 
IECodeLButton 
IECodeMButton 
IECodeNewActive 
IECodeNoButton 
IECodeRButton 
IECodeReqC lear 
TECodeReqSet 
IECodeUpPrefix 
TeQualifier 
TEQualifierCapsLock 
IEQualifierControl 
IEQualifierInterrupt 
IeQualifierLaAlt 
IEQualifierLCommand 
IEQualifierLeftButton 
TEQualifierLShift 
IEQualifierMidButton 
IeQualifierMultiBroadcast 
I£QualifierNumericPad 
IEQualifierRAlt 
IEQualifierRButton 
IEQualifierRCommand 
IEQualifierRelativeMouse 
IEQualifierRepeat 
IEQualifierRShift 
TEQualifierSet 

IF23 

IF24 

IF25 

IF26 

IF27 

IF28 

IF29 

IF30 

Image 

ImageNegative 
ImagePositive 
ImagePtr 

in 

In 

InactiveWindow 


InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
InputEvents 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Preferences 
Preferences 
Intuition 
InOut 
LargeSets 
Intuition 
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CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
CONST 
CONST 
TYPE 
VAR 
PROCEDURE 
CONST 
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InclElement LargeSets PROCEDURE 
Inc1Range LargeSets d PROCEDURE 
InerCLMark CList PROCEDURE 
INDAddHand1ler InputDevice CONST 
INDRemHandler InputDevice CONST 
INDSetMPort InputDevice CONST 
INDSetMTrig InputDevice CONST 
INDSetMType InputDevice CONST 
INDSetPeriod InputDevice CONST 
INDSetThresh InputDevice CONST 
INDWriteEvent InputDevice CONST 
Info AmigaDOS PROCEDURE 
InfoData AmigaDOS TYPE 
InfoDataPtr AmigaDOS TYPE 
InitAnimation Gels PROCEDURE 
InitArea Areas PROCEDURE 
InitBitMap Graphics PROCEDURE 
InitCLPool CList PROCEDURE 
InitCode Resident PROCEDURE 
InitGels Gels PROCEDURE 
InitGMasks Gels PROCEDURE 
InitMasks Gels PROCEDURE 
InitRastPort Rasters PROCEDURE 
InitRequester Intuition PROCEDURE 
InitResident Resident PROCEDURE 
InitSemaphore Semaphores PROCEDURE 
InitStruct Memory PROCEDURE 
InitTmpRas Rasters PROCEDURE 
InitView Views PROCEDURE 
InitVPort Views PROCEDURE 
Input AmigaDOS PROCEDURE 
InputEvent InputEvents TYPE 
InputEventPtr InputEvents TYPE 
InRequest Intuition CONST 
Insert Lists PROCEDURE 
InsertSubString Strings PROCEDURE 
Instal1ClipRegion Layers PROCEDURE 
InstallErrorHandler RunTimeErrors PROCEDURE 
INTAud® INTHardware CONST 
INTAud1 INTHardware CONST 
INTAud2 INTHardware CONST 
INTAud3 INTHardware CONST 
INTB1it INTHardware CONST 
INTCoper INTHardware CONST 
INTDSkBIk INTHardware CONST 
INTDskSync INTHardware CONST 
Inter lace Display CONST 
Interrupt Interrupts TYPE 
InterruptPtr Interrupts TYPE 
Intersection LargeSets PROCEDURE 
INTExter INTHardware CONST 
INTInten INTHardware CONST 
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IntNMI Interrupts CONST 
INTPorts INTHardware CONST 
INTRBF INTHardware CONST 
INTSetC1r INTHardware CONST 
INTSoftInt INTHardware CONST 
INTTBE INTHardware CONST 
IntuiMessage Intuition TYPE 
IntuiMessagePtr Intuition TYPE 
IntuiText Intuition TYPE 
IntuiTextLength Intuition PROCEDURE 
IntuiTextPtr Intuition TYPE 
IntuiTicks Intuition CONST 
Intuition IntuitionBase PROCEDURE 
IntuitionBase IntuitionBase TYPE 
IntuitionBase System VAR 
IntuitionBasePtr IntuitionBase TYPE 
IntuitionName Intuition CONST 
IntVector Interrupts TYPE 
IntVectorPtr Interrupts TYPE 
INTVertB INTHardware CONST 
InversVid Rasters CONST 
I0Audio AudioDevice TYPE 
T0AudioPtr AudioDevice TYPE 
IOC1ipReq ClipboardDevice TYPE 
IOC1ipReqPtr ClipboardDevice TYPE 
IODRPReq PrinterDevice TYPE 
IODRPRegPtr PrinterDevice TYPE 
IoErr AmigaDOS PROCEDURE 
IOErrAborted I0Devices CONST 
I0ErrBadLength I0Devices CONST 
IOErrNoCmd I0Devices CONST 
IOErrOpenFail I0Devices CONST 
IOExtPar ParallelDevice TYPE 
IOExtParPtr ParallelDevice TYPE 
IOExtSer SerialDevice TYPE 
IOExtSerPtr SerialDevice TYPE 
IOExtTD TrackDiskDevice TYPE 
IOExtTDPtr TrackDiskDevice TYPE 
I0FlagsSet T0Devices TYPE 
I0ParAbort ParallelDevice CONST 
IoParActive ParallelDevice CONST 
IOParQueued ParallelDevice CONST 
IoPArray ParallelDevice TYPE 
IOPArrayPtr ParallelDevice TYPE 
IoPrtCmdReq PrinterDevice TYPE 
I0PrtCmdReqPtr PrinterDevice TYPE 
IOPT4 ParallelDevice CONST 
IOPT5 ParallelDevice CONST 
IOPT6 ParallelDevice CONST 
IOPT7 ParallelDevice CONST 
IOPTPaperOut ParallelDevice CONST 
IOPTPBusy ParallelDevice CONST 


C-29 


Modula-2 Software Construction Set Reference Guide 


IOPTPSel 
IOPTRWDir 
TdQuick 
TORequest 
TORequestPtr 
IOSerAbort 
T0SerActive 
I0SerBufRead 
10SerQueued 
I0ST10 

IOST11 

IO0ST12 

IOST13 

TOST14 

I0ST15 

IOST5 

IOST6 

IOST7 

I0ST8 

I0st9 
TOStdReq 
TOStdReqPtr 
IoSTOverRun 
IOSTReadBreak 
1O0STWroteBreak 
IOSTXOffRead 
IOSTXOfFfWrite 
roTArray 
IOTArrayPtr 
I0TDIndexSyne 
IsDrawn 
IsGrtrX 
IsGrtrY 
IsInteractive 
IsLessX 
IsLessY 
Italic 
ItemAddress 
ItemEnabled 
ITEMNUM 
ItemText 

Jam1 

Jam2 
KBDAddResetHandler 
KBDReadEvent 
KBDReadMatrix 
KBDRemResetHandler 
KBDResetHandlerDone 
KCAIt 
KCControl 
KCDead 
KCDownUp 
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ParallelDevice 
ParallelDevice 
I0Devices 
I0Devices 
10Devices 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
I0Devices 
I0Devices 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
TrackDiskDevice 
Intuition 
Clipping 
Clipping 
AmigaDOS 
Clipping 
Clipping 

Text 

Intuition 
Intuition 
Intuition 
Intuition 
Rasters 
Rasters 
KeyboardDevice 
KeyboardDevice 
KeyboardDevice 
KeyboardDevice 
KeyboardDevice 
KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
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CONST 
CONST 
TYPE 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
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CONST 
CONST 
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CONST 
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CONST 
CONST 
CONST 
TYPE 
TRE 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
TYPE 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 


KCNop 
KCNoQual 
KCShift 
KCString 
KCVanilla 
KeyCodeB 
KeyCodeM 
KeyCodeN 
KeyCodeQ 
KeyCodeV 
KeyCodex 
KeyMap 
KeyMapCode 
KeyMapCodeSet 
KeyMapNode 
KeyMapNodePtr 
KeyMapPtr 
KeyMapResource 
KeyMapResourcePtr 
KnobHit 
KnobHMin 
KnobVMin 

Lace 

LacewB 
LargeSet 

Layer 
LayerBackdrop 
LayerClipRectsLost 
LayerInfo 
LayerInfoF lags 
LayerInfoF lagsSet 
LayerInfoPtr 
LayerPtr 
LayerRefresh 
LayersBase 
LayerSimple 
LayerSmart 
LayersName 
LayerSuper 
LayerUpdating 
Lefta 

Left1 
LeftBorder 
LeftHit 

Length 

less 

Letter 

LF 

LibBase 
LibChanged 
LibClose 
LibDelExp 


KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
KeyMapResource 
Intuition 
Intuition 
Intuition 
Views 
Preferences 
LargeSets 
Clipping 
Clipping 
Clipping 
Clipping 
Clipping 
Clipping 
Clipping 
Clipping 
Clipping 
System 
Clipping 
Clipping 
Layers 
Clipping 
Clipping 

Audi oDevice 
AudioDevice 
Intuition 

Gels 
FileSystem 
Strings 
Preferences 
ASCII 
Libraries 
Libraries 
Libraries 
Libraries 
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CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
TYPE 
CONST 
CONST 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
CONST 
VAR 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
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LibExpunge Libraries CONST 
LibExtFunc Libraries CONST 
LibFlags Libraries TYPE 
LibFlagsSet Libraries TYPE 
LibNonStd Libraries CONST 
LibOpen Libraries CONST 
Library Libraries TYPE 
LibraryPtr Libraries TYPE 
LibReserved Libraries CONST 
LibSumming Libraries CONST 
LibSumUsed Libraries CONST 
LibUserDef Libraries CONST 
LibVectSize Libraries CONST 
LIF10 Clipping CONST 
LIF11 Clipping CONST 
LIF12 Clipping CONST 
LIF13 Clipping CONST 
LIF14 Clipping CONST 
LIFI5 Clipping CONST 
LIF3 Clipping CONST 
LIFS Clipping CONST 
DEES Clipping CONST 
LineMode Blit CONST 
List Lists TYPE 
ListPtr Lists TYPE 

in MathLibd PROCEDURE 
1n2 MathLiba CONST 
LoadRGB4 Views PROCEDURE 
LoadSeg AmigaDOS PROCEDURE 
LoadView Views PROCEDURE 
LocateChar Strings PROCEDURE 
LocateSubString Strings PROCEDURE 
Lock AmigaDOS PROCEDURE 
LockIBase IntuitionBase PROCEDURE 
LockLayer Layers PROCEDURE 
LockLayerInfo Layers PROCEDURE 
LockLayerRom RomLayers PROCEDURE 
LockLayers Layers PROCEDURE 
log MathLib& PROCEDURE 
LonelyMessage Intuition CONST 
Longint Intuition CONST 
Lookup FileSystem PROCEDURE 
LowCheckWidth Intuition CONST 
LowCommWidth Intuition CONST 
Lower ASCII CONST 
MakeDosNode Expansion PROCEDURE 
MakeFunctions Libraries PROCEDURE 
MakeLibrary Libraries PROCEDURE 
MakeScreen Intuition PROCEDURE 
MakeVPort Views PROCEDURE 
Male NarratorDevice CONST 
MarkCList CList PROCEDURE 
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MASM 
MatchToolValue 
MathBase 
MathTransBase 
MathTransName 
MAWM 

MaxBody 
MaxBytesPerRow 
MaxFontName 
MaxFontPath 
MaxFreq 
MaxPitch 
MaxPot 
MaxRate 
MaxSignal 
MaxTabs 
MaxTrap 
MaxVol 
MemBlockMask 
MemBlockSize 
MemChip 
MemChunk 
MemChunkPtr 
MemClear 
MemEntry 
MemEntryPtr 
MemFai led 
MemFast 
MemHeader 
MemHeaderPtr 
MemLargest 
MemList 
MemListPtr 
MemPublic 
MemReqSet 
Menu 
MenuCancel 
MenuDown 
MenuEnabled 
MenuF lags 
MenuF lagsSet 
MenuHot 
MenuItem 
MenuItemF lags 
MenultemF lagsSet 
MenuItemMutualExcludeSet 
MenultemPtr 
MenuNu11 
MENUNUM 
MenuPick 
MenuPtr 
MenuState 


ConsoleDevice 
Workbench 
System 
MathLibd 
MathLiba 
ConsoleDevice 
Intuition 
Blit 
DiskFont 
DiskFont 
NarratorDevice 
NarratorDevice 
Intuition 
NarratorDevice 
Tasks 
ConsoleDevUnit 
Tasks 
NarratorDevice 
Memory 

Memory 

Memory 

Memory 

Memory 

Memory 

Memory 

Memory 

Memory 

Memory 
Memory 

Memory 

Memory 
Memory 

Memory 

Memory 

Memory 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
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PROCEDURE 
VAR 
VAR 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
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TYPE 
CONST 
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TYPE 
CONST 
TYPE 
TYPE 
CONST 
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TYPE 
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TYPE 
TYPE 
TYPE 
TYPE 
CONST 
PROCEDURE 
CONST 
TYPE 
CONST 
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MenuToggle Intuition CONST 
MenuToggled Intuition CONST 
MenuUp Intuition CONST 
MenuVerify Intuition CONST 
MenuWaiting Intuition CONST 
Message Ports TYPE 
MessagePtr Ports TYPE 

MFL Intuition CONST 

MF2 Intuition CONST 

MF3 Intuition CONST 

MF4 Intuition CONST 

MF5 Intuition CONST 

MF6 Intuition CONST 
MF7 Intuition CONST 
MiDrawn Intuition CONST 
MIF10 Intuition CONST 
MIF11 Intuition CONST 
MIF15 Intuition CONST 
MIFS Intuition CONST 
MIF6 Intuition CONST 
MIF7 Intuition CONST 
MIF9 Intuition CONST 
MinFreq NarratorDevice CONST 
MinList Lists TYPE 
MinListPtr Lists TYPE 
MinNode Nodes TYPE 
MinNodePtr Nodes TYPE 
MinPitch NarratorDevice CONST 
MinRate NarratorDevice CONST 
MinTermF lagsSet Blit TYPE 
MinVol NarratorDevice CONST 
MiscName MiscResource CONST 
MiscResource MiscResource TYPE 
MiscResourcePtr MiscResource TYPE 

MLNM ConsoleDevice CONST 
Mode640 Display CONST 
ModeNewFile AmigaDOS CONST 
ModeOldFile AmigaDOS CONST 
ModeReadWrite AmigaDOS CONST 
Modi fyIDCMP Intuition PROCEDURE 
Modi fyProp Intuition PROCEDURE 
MouseButtons Intuition CONST 
MouseMove Intuition CONST 
mouthrb NarratorDevice TYPE 
mouthrbPtr NarratorDevice TYPE 

Move Drawing PROCEDURE 
MoveLayer Layers PROCEDURE 
MoveLayerInFrontof Layers PROCEDURE 
MoveScreen Intuition PROCEDURE 
MoveSprite Sprites PROCEDURE 
MoveWindow Intuition PROCEDURE 
MRA1 1locMiscResource MiscResource CONST 
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MRFreeMiscResource 
MrgCop 
MRParallelBits 
MRParallelPort 
MRSerialBits 
MRSerialPort 
MsgPort 
MsgPortPtr 
MTypeCloseDown 
MTypeDiskChange 
MTypeIOProc 
MTypePStd 
MTypeTimer 
MTypeToolExit 
MULS32 

MULU32 
MustDraw 

NABC 

NABNC 

NAK 

NANBC 

NANBNC 
narratorrb 
narratorrbPtr 
NaturalF@ 
NDCantAl loc 
NDExpunged 
NDFreqErr 
NDMakeBad 
NOModeErr 
NDNoAudLib 
NDNoMem 
NDNoWrite 
NOPhonErr 
NOPitchErr 
NDRateErr 
NDSexErr 
NOUnimp1 
NOUnitErr 
NDVolErr 
NewLayerInfo 
NewLayerInfoCalled 
NewList 
NewModi fyProp 
NewPrefs 
NewRegion 
NewScreen 
NewScreenPtr 
NewSize 
NewWindow 
NewWindowPtr 
NoCareRefresh 


MiscResource 
Views 
MiscResource 
MiscResource 
MiscResource 
MiscResource 
Ports 

Ports 
Workbench 
Workbench 
Workbench 
Workbench 
Workbench 
Workbench 
System 

System 

Gels 

Blit 

Blit 

ASCII 

Blit 

Blit 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
NarratorDevice 
Layers 
Clipping 

Lists 
Intuition 
Intuition 
Regions 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
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NoCrossFill Rasters CONST 
Node Nodes TYPE 
NodePtr Nodes TYPE 
NoIconPosition Workbench CONST 
NoisyReq Intuition CONST 
NoItem Intuition CONST 
nomemory FileSystem CONST 
NoMenu Intuition CONST 
NormalFontStyle Text CONST 
NoSignals Tasks CONST 
NoSub Intuition CONST 
notdone FileSystem CONST 
NoTraps Tasks CONST 
NTDevice Nodes CONST 
NTFont Nodes CONST 
NTFreeMsg Nodes CONST 
NTInterrupt Nodes CONST 
NTLibrary Nodes CONST 
NTMemory Nodes CONST 
NTMessage Nodes CONST 
NTMsgPort Nodes CONST 
NTProcess Nodes CONST 
NTractor Preferences CONST 
NTReplyMsg Nodes CONST 
NTResource Nodes CONST 
NTSC GraphicsBase CONST 
NTSemaphore Nodes CONST 
NTSignalSem Nodes CONST 
NTSoftint Nodes CONST 
NTTask Nodes CONST 
NTUnknown Nodes CONST 

NUL ASCII CONST 
NumMRTypes MiscResource CONST 
NumSecs TrackDiskDevice CONST 
NumUnits TrackDiskDevice CONST 
ObtainConfigBinding Expansion PROCEDURE 
ObtainSemaphore Semaphores PROCEDURE 
ObtainSemaphoreList Semaphores PROCEDURE 
OctalChars ASCII CONST 
Octant1 Blit CONST 
Octant2 Blit CONST 
Octant3 Blit CONST 
Octant4 Blit CONST 
Octant5 Blit CONST 
Octanté Blit CONST 
Octant7 Blit CONST 
Octant8 Blit CONST 
OffDisplay DMAHardware PROCEDURE 
OffGadget Intuition PROCEDURE 
OffMenu Intuition PROCEDURE 
OffsetBeginning AmigaDOS CONST 
OffsetCurrent AmigaDOS CONST 
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OffsetEnd 
OffSprite 
OffVBlank 
OkAbort 
OkCancel 
Okimate2o 

OkOk 

OnDisplay 
OneDot 

OneDot 
OnGadget 
OnMenu 
OnSprite 
OnVBlank 

Open 
OpenDevice 
OpenDiskFont 
OpenFont 
OpenInput 
OpenInputFile 
OpenLibrary 
OpenMathLib@ 
OpenOutput 
OpenOutputFile 
OpenResource 
OpenScreen 
OpenWindow 
OpenWorkBench 
OrRectRegion 
OrRegionRegion 
OtherRefresh 
out 

Output 

OutStep 
Overlay 
OverwriteWithSubString 
OvF lag 
OwnBlitter 
PAIgnore 

PAL 
ParallelName 
ParallelPrinter 
ParentDir 
ParEOFMode 
ParErrBufTooBig 
ParErrDevBusy 
ParErriniteErr 
ParErrInvParam 
ParErrLineErr 
ParErrNotOpen 
ParErrPortReset 
ParFlags 


AmigaDOS 
OMAHardware 
INTHardware 
Intuition 
Intuition 
Preferences 
Intuition 
DMAHardware 
Blit 

Rasters 
Intuition 
Intuition 
DMAHardware 
INTHardware 
AmigaDOS 
I0Devices 
DiskFont 

Text 

InOut 

InOut 
Libraries 
InitMathLibo 
InOut 

Indut 
Resources 
Intuition 
Intuition 
Intuition 
Regions 
Regions 
Intuition 
InOut 
AmigaDOS 

Gels 

Gels 

Strings 

Blit 

Blit 

Ports 
GraphicsBase 
ParallelDevice 
Preferences 
AmigaDOS 
ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
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PROCEDURE 
PROCEDURE 
CONST 
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CONST 
PROCEDURE 
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CONST 
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PROCEDURE 
PROCEDURE 
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PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 

VAR 
PROCEDURE 
CONST 
CONST 
PROCEDURE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
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ParFlagsSet 
ParRadBoogie 
ParShared 
ParStatus 
ParStatusSet 
PASignal 
PASoftiInt 
PDCmdQuery 
PDCmdSetParams 
PDErrBadDimension 
PDErrBufferMemory 
PDErrCancel 


PDErrDimensionOvflow 


PDErriInternalMemory 
PDErriInvertHam 
PDErrNotGraphics 
PeekCLMark 

Permit 


lars 

PFAction 
PFAFineScroll 
PFBA 
PFBFineScrol1Shift 
PFFineScrol1Mask 
pi 

Pica 

PIF10 

PIF11 

PIF12 

RIEL 

PIF14 

PIF15 

PIF4 

PIF5 

PIF6 

PIF7 

PIF9 
PlanePtr 
PinCntMsk 
PinCntShft 
PMBASM 
PMBAWM 

Point 
PointerSize 
PointPtr 
PointRel 
PolyDraw 
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ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
ParallelDevice 
Ports 

Ports 
ParallelDevice 
ParallelDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
CList 
Interrupts 
ParallelDevice 
ParallelDevice 
Display 
ParallelDevice 
ParallelDevice 
ParallelDevice 
Ports 

Display 

Views 

Display 
Display 
MathLibo 
Preferences 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Graphics 
Display 
Display 
ConsoleDevUnit 
ConsoleDevUnit 
Graphics 
Preferences 
Graphics 
Intuition 
Drawing 


TYPE 
CONST 
CONST 
TYPE 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
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CONST 
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CONST 
CONST 
CONST 
CONST 
CONST 
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CONST 
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CONST 
TYPE 
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PotgoBase 
PotgoName 
power 
PPC4Color 
PPCAdditive 
PPCBGR 

PPCBGRW 
PPCBGRWB 

PPCBW 
PPCBWAlpha 
PPCBWGfx 
PPCColor 
PPCColorGfx 
PPCGfx 

PPCWB 

PPCYMC 

PPCYMCB 
PPCYMCBW 
PROPrtCommand 
PRDRawWrite 
PreDrawn 
Preferences 
PreferencesPtr 
PrimaryClip 
PrinterData 
PrinterDataPtr 
PrinterExtendedData 
PrinterExtendedDataPtr 
PrinterSegment 
PrinterSegmentPtr 
PrintIText 
Process 
ProcessID 
ProcessPtr 
Procure 
PropBorderless 
PropGadget 
Propinfo 
PropInfoF lags 
PropInfoF lagsSet 
PropinfoPtr 
Proportional 
ProtectionSet 
PStkSize 
PutCLBuf 
PutCLChar 
PutCLWord 
PutDiskObject 
PutIcon 

PutMsg 

QBlit 

QBSB1it 


PotgoResource 
PotgoResource 
MathLiba 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterDevice 
PrinterDevice 
Intuition 
Preferences 
Preferences 
ClipboardDevice 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
PrinterBase 
Intuition 
AmigaDOSProcess 
AmigaDOSProcess 
AmigaDOSProcess 
Semaphores 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Text 

AmigaDOS 
PrinterBase 
CList 

CList 

CList 
Workbench 
Workbench 
Ports 

Blit 

Blit 
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CONST 
CONST 
CONST 
CONST 
CONST 
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PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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QueuePacket AmigaDOSProcess PROCEDURE 
QumeLP28 Preferences CONST 
RadToDeg MathLib@ PROCEDURE 
Random RandomNumbers PROCEDURE 
RasInfo Rasters TWEE 
RasInfoPtr Rasters TYPE 
RastPort Rasters TYPE 
RastPortF lags Rasters TYPE 
RastPortFlagsSet Rasters TYPE 
RastPortPtr Rasters TYPE 
RawDoFmt Exec PROCEDURE 
RawKey Intuition CONST 
RawKeyConvert ConsoleDevice PROCEDURE 
Read AmigaDOS PROCEDURE 
Read InOut PROCEDURE 
Read Terminal PROCEDURE 
Read TermInOut PROCEDURE 
ReadAgain Terminal PROCEDURE 
ReadCard Indut PROCEDURE 
ReadCard TermInOut PROCEDURE 
ReadChar FileSystem PROCEDURE 
ReadExpansionByte Expansion PROCEDURE 
ReadExpansionRom Expansion PROCEDURE 
ReadInt InOut PROCEDURE 
ReadInt TermInOut PROCEDURE 
ReadLongCard LongInOut PROCEDURE 
ReadLongint LongInOut PROCEDURE 
ReadPixel Drawing PROCEDURE 
ReadReal RealInOut PROCEDURE 
ReadString InOut PROCEDURE 
ReadString TermInOut PROCEDURE 
ReadWord FileSystem PROCEDURE 
ReadWrd InOut PROCEDURE 
real MathLibd PROCEDURE 
RealChars ASCII CONST 
RealToStringFormat RealConversions TYPE 
RecoveryAlert Intuition CONST 
Rectangle Graphics TYPE 
RectanglePtr Graphics TYPE 
RectFill Drawing PROCEDURE 
RefreshBits Intuition CONST 
RefreshGadgets Intuition PROCEDURE 
RefreshGList Intuition PROCEDURE 
RefreshWindow Intuition CONST 
RefreshWindowF rame Intuition PROCEDURE 
Region Regions TYPE 
RegionPtr Regions TYPE 
RegionRectangle Regions TYPE 
RegionRectanglePtr Regions TYPE 
Relation Strings TYPE 
ReleaseConfigBinding Expansion PROCEDURE 
ReleaseSemaphore Semaphores PROCEDURE 
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ReleaseSemaphoreList Semaphores PROCEDURE 
RelVerify Intuition CONST 
RemakeDisplay Intuition PROCEDURE 
RemBob Gels PROCEDURE 
RemConfigDev Expansion PROCEDURE 
RemDevice T0Devices PROCEDURE 
Remember Intuition TYPE 
RememberPtr Intuition TYPE 
RemFont Text PROCEDURE 
RemHead Lists PROCEDURE 
RemIBob Gels PROCEDURE 
RemICRVector CIAResource PROCEDURE 
RemIntServer Interrupts PROCEDURE 
RemLibrary Libraries PROCEDURE 
Remove Lists PROCEDURE 
Removed Text CONST 
RemoveErrorHandler RunTimeErrors PROCEDURE 
RemoveGadget Intuition PROCEDURE 
RemoveGList Intuition PROCEDURE 
RemPort Ports PROCEDURE 
RemResource Resources PROCEDURE 
RemSemaphore Semaphores PROCEDURE 
RemTail Lists PROCEDURE 
RemTask Tasks PROCEDURE 
RemVSprite Gels PROCEDURE 
Rename AmigaDOS PROCEDURE 
ReplyMsg Ports PROCEDURE 
Reportmouse Intuition CONST 
ReportMouse Intuition PROCEDURE 
RegActive Intuition CONST 
ReqClear Intuition CONST 
ReqGadget Intuition CONST 
ReqOffWindow Intuition CONST 
ReqSet Intuition CONST 
Request Intuition PROCEDURE 
Requester Intuition TYPE 
RequesterF lags Intuition TYPE 
RequesterF lagsSet Intuition TYPE 
RequesterPtr Intuition TYPE 
ReqVerify Intuition CONST 
Resident Resident TYPE 
ResidentPtr Resident TYPE 
Resource Resources TYPE 
ResourcePtr Resources TYPE 
Response FileSystem TYPE 
RethinkDisplay Intuition PROCEDURE 
ReturnError Ami gaDOS CONST 
ReturnFail AmigaDOS CONST 
ReturnOk AmigaDOS CONST 
ReturnWarn AmigaDOS CONST 
RevPath Text CONST 
RF10 Intuition CONST 
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RF11 Intuition CONST 
RF3 Intuition CONST 
RF4 Intuition CONST 
RF5 Intuition CONST 
RF6 Intuition CONST 
RF7 Intuition CONST 
RFS Intuition CONST 
RF9 Intuition CONST 
Right® AudioDevice CONST 
Right1 AudioDevice CONST 
RightBorder Intuition CONST 
RightHit Gels CONST 
RingTrigger Gels CONST 
RMBTrap Intuition CONST 
RoboticF@ NarratorDevice CONST 
RomFont Text CONST 
RootNode Ami gaDOSExt TYPE 

RootNodePtr Ami gaDOSExt TYPE 

RPODumpRPort PrinterDevice CONST 
RPF10 Rasters CONST 
RPF11 Rasters CONST 
RPF12 Rasters CONST 
RPF13 Rasters CONST 
RPF14 Rasters CONST 
RPF15 Rasters CONST 
RPF4 Rasters CONST 
RPF6 Rasters CONST 
RPF7 Rasters CONST 
RPF8 Rasters CONST 
RPF9 Rasters CONST 
RS ASCII CONST 
RTAutoInit Resident CONST 
RTCMatchWord Resident CONST 
RTColdStart Resident CONST 
RTF lagsSet Resident TYPE 

SatisfyMsg ClipboardDevice TYPE 

SatisfyMsgPtr ClipboardDevice TYPE 

SaveBack Gels CONST 
SaveBob Gels CONST 
SavePreserve Gels CONST 
SBuf1024 Preferences CONST 
SBuf 16000 Preferences CONST 
SBuf2048 Preferences CONST 
SBuf 4096 Preferences CONST 
SBuf512 Preferences CONST 
SBuf800o Preferences CONST 
SBufSizeBits Preferences CONST 
Scientific RealConversions CONST 
Screen Intuition TYRE 

ScreenBehind Intuition CONST 
ScreenFlags Intuition TYPE 

ScreenF lagsSet Intuition TYPE 
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ScreenPtr Intuition TYPE 
ScreenQuiet Intuition CONST 
ScreenToBack Intuition PROCEDURE 
ScreenToFront Intuition PROCEDURE 
ScreenType Intuition CONST 
ScrGadget Intuition CONST 
ScrollLayer Layers PROCEDURE 
Scrol1lRaster Rasters PROCEDURE 
Scrol1VPort Views PROCEDURE 
SDCmdBreak SerialDevice CONST 
SOCmdQuery SerialDevice CONST 
SDCmdSetParams SerialDevice CONST 
SDownBack Intuition CONST 
SDragging Intuition CONST 
Seed RandomNumbers VAR 

Seek AmigaDOSs PROCEDURE 
SEF10 SerialDevice CONST 
SEF11 SerialDevice CONST 
SEF12 SerialDevice CONST 
SEF13 SerialDevice CONST 
SEF14 SerialDevice CONST 
SEF15 SerialDevice CONST 
SEF16 SerialDevice CONST 
SEF17 SerialDevice CONST 
SEF18 SerialDevice CONST 
SEF19 SerialDevice CONST 
SEF2 SerialDevice CONST 
SEF20 SerialDevice CONST 
SEF21 SerialDevice CONST 
SEF22 SerialDevice CONST 
SEF23 SerialDevice CONST 
SEF24 SerialDevice CONST 
SEF25 SerialDevice CONST 
SEF26 SerialDevice CONST 
SEF27 SerialDevice CONST 
SEF28 SerialDevice CONST 
SEF29 SerialDevice CONST 
SEF3 SerialDevice CONST 
SEF30 SerialDevice CONST 
SEF31 SerialDevice CONST 
SEF4 SerialDevice CONST 
SEF5 SerialDevice CONST 
SEF6 SerialDevice CONST 
SEF7 SerialDevice CONST 
SEF8 SerialDevice CONST 
SEF9 SerialDevice CONST 
SelectDown Intuition CONST 
Selected Intuition CONST 
SelectUp Intuition CONST 
Semaphore Semaphores TYPE 
SemaphorePtr Semaphores TYPE 
SemaphoreRequest Semaphores TYPE 
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SemaphoreRequestPtr 


SendI0 

Ser7Wire 
SerEOFMode 
SerErrBaudMismatch 
SerErrBuferr 
SerErrBufOverflow 


SerErrDetectedBreak 


SerErrDevBusy 
SerErriniterr 
SerErrInvBaud 
SerErrinvParam 
SerErrLineErr 
SerErrNoCTS 
SerErrNoDSR 
SerErrNotOpen 
SerErrParityErr 
SerErrPortReset 
SerErrTimerErr 
SerExtFlags 
SerExtFlagsSet 
SerFlags 
SerFlagsSet 
SerialName 
SerialPrinter 
SerParityOdd 
SerParityOn 
SerQueuedBrk 
SerRadBoogie 
SerShared 
SerStatus 
SerStatusSet 
SerxXDisabled 
SetAfPt 
SetAPen 
SetBPen 
SetCollision 
SetComment 
SetCurrentBinding 
SetDMRequest 
SetDrMd 
SetDrPt 
SetExcept 
SetFont 
SetFunction 
SetICR 
SetiInfo 
SetIntVector 
SetMenuStrip 
SetOPen 
SetPointer 
SetPos 
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Semaphores 
I0Devices 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
Preferences 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
SerialDevice 
Drawing 
Drawing 
Drawing 

Gels 
AmigaDOS 
Expansion 
Intuition 
Drawing 
Drawing 
Tasks 

Text 
Libraries 
CIAResource 
LargeSets 
Interrupts 
Intuition 
Drawing 
Intuition 
FileSystem 
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CONST 
CONST 
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CONST 
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CONST 
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CONST 
TYPE 

TYRE 

TYPE 

TYPE 
CONST 
CONST 
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CONST 
TYPE 

TYPE 
CONST 
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PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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PROCEDURE 
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PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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SetPrefs Preferences PROCEDURE 
SetProtection AmigaDOS PROCEDURE 
SetRange LargeSets PROCEDURE 
SetRast Rasters PROCEDURE 
SetRGB4 Views PROCEDURE 
SetRGB4CM Views PROCEDURE 
SetSignal Tasks PROCEDURE 
SetSoftStyle Text PROCEDURE 
SetSR Exec PROCEDURE 
SetTaskPri Tasks PROCEDURE 
SetWindowTitles Intuition PROCEDURE 
SetWrMsk Drawing PROCEDURE 
SExtMark SerialDevice CONST 
SExtMSPOn SerialDevice CONST 
SFO Intuition CONST 
SF1 Intuition CONST 
SF10 Intuition CONST 
SF10 PrinterDevice CONST 
SF11 Intuition CONST 
SF1l PrinterDevice CONST 
SF12 Intuition CONST 
SF12 PrinterDevice CONST 
SF13 Intuition CONST 
SF13 PrinterDevice CONST 
SF14 Intuition CONST 
SF14 PrinterDevice CONST 
SF15 Intuition CONST 
SF15 PrinterDevice CONST 
SF2 Intuition CONST 
SF3 Intuition CONST 
SF8 PrinterDevice CONST 
SF9 Intuition CONST 
SF9 PrinterDevice CONST 
SGRBlack ConsoleDevice CONST 
SGRB1ackBG ConsoleDevice CONST 
SGRB1ue ConsoleDevice CONST 
SGRB1ueBG ConsoleDevice CONST 
SGRBold ConsoleDevice CONST 
SGRC1r@ ConsoleDevice CONST 
SGRC1r@BG ConsoleDevice CONST 
SGRC1r1 ConsoleDevice CONST 
SGRC1r1BG ConsoleDevice CONST 
SGRC1r2 ConsoleDevice CONST 
SGRC1r2BG ConsoleDevice CONST 
SGRC1r3 ConsoleDevice CONST 
SGRC1r3BG ConsoleDevice CONST 
SGRC1r4 ConsoleDevice CONST 
SGRC1r4BG ConsoleDevice CONST 
SGRC1r5 ConsoleDevice CONST 
SGRC1r5BG ConsoleDevice CONST 
SGRC1r6 ConsoleDevice CONST 
SGRC1r6BG ConsoleDevice CONST 
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SGRC1r7 ConsoleDevice CONST 
SGRC1r7BG ConsoleDevice CONST 
SGRCyan ConsoleDevice CONST 
SGRCyanBG ConsoleDevice CONST 
SGRDefault ConsoleDevice CONST 
SGRDefaultBG ConsoleDevice CONST 
SGRGreen ConsoleDevice CONST 
SGRGreenBG ConsoleDevice CONST 
SGRItalic ConsoleDevice CONST 
SGRMagenta ConsoleDevice CONST 
SGRMagentaBG ConsoleDevice CONST 
SGRNegative ConsoleDevice CONST 
SGRPrimary ConsoleDevice CONST 
SGRRed ConsoleDevice CONST 
SGRRedBG ConsoleDevice CONST 
SGRUnderscore ConsoleDevice CONST 
SGRWhite ConsoleDevice CONST 
SGRWhiteBG ConsoleDevice CONST 
SGRYe1 low ConsoleDevice CONST 
SGRYe11owBG ConsoleDevice CONST 
ShadeBW Preferences CONST 
ShadeColor Preferences CONST 
ShadeGreyScale Preferences CONST 
SharedLock AmigaDOS CONST 
Shift ASCII CONST 
ShortestForm RealConversions CONST 
Showtitle Intuition CONST 
ShowTitle Intuition PROCEDURE 
SHShakeBits Preferences CONST 
SHShakeNone Preferences CONST 
SHShakeRTS Preferences CONST 
SHShakeXON Preferences CONST 
ST ASCII CONST 
SigAbort Tasks CONST 
SigBlit Tasks CONST 
SigBreakCtr1C AmigaDOS CONST 
SigBreakCtr1D AmigaDOS CONST 
SigBreakCtriE AmigaDOS CONST 
SigBreakCtriF Ami gaDOS CONST 
SigChild Tasks CONST 
SigDos Tasks CONST 
Signal Tasks PROCEDURE 
SignalRange Tasks TYPE 
SignalSemaphore Semaphores TYPE 
SignalSemaphorePtr Semaphores TYPE 
SignalSet Tasks TYPE 
SignFlag Blit CONST 
SigSingle Tasks CONST 
SIHPriMask Interrupts CONST 
SimpleRefresh Intuition CONST 
SimpleSprite Sprites TYPE 
SimpleSpritePtr Sprites TYPE 
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sin 

Single 

sinh 

SixLPL 
SizeBBottom 
SizeBRight 
SizeCList 
SizeLayer 
SizeVerify 
SizeWindow 
Sizing 
SmartRefresh 

so 

SoftIntList 
SoftIntListPtr 
SOH 

SortGList 
SParityBits 
SParityEven 
SParityNone 
SParityOdd 
Special 
SpecialAspect 
SpecialCenter 
SpecialDensity1 
SpecialDensity2 
SpecialDensity3 
SpecialDensity4 
SpecialDensityMask 
SpecialFracCols 
SpecialFracRows 
SpecialFullCols 
SpecialFul1Rows 
SpecialMilCols 
SpecialMilRows 
SpecialSet 
SplitCList 
SpriteAttached 
SpriteDef 
SpriteDefPtr 
Sprites 

sqrt 

sqrt2 

SrcA 

SrcB 

Srec 

SReadBits 
SStopBits 
StackPtr 
StackSize 
StandardPacket 
StandardPacketPtr 


MathLib@ 
Preferences 
MathLibd 
Preferences 
Intuition 
Intuition 
CList 

Layers 
Intuition 
Intuition 
Intuition 
Intuition 
ASCII 
Interrupts 
Interrupts 
ASCII 

Gels 
Preferences 
Preferences 
Preferences 
Preferences 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
PrinterDevice 
CList 

Sprites 
CustomHardware 
CustomHardware 
Views 
MathLibd 
MathLibd 

Blit 

Blit 

Blit 
Preferences 
Preferences 
System 

System 
AmigaDOSProcess 
AmigaDOSProcess 
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PROCEDURE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
TYPE 

TYPE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
PROCEDURE 
CONST 
TYPE 
TYPE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 

VAR 

VAR 

TYPE 

TYPE 
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StdInput 
StdOutput 
StdScreenHeight 
StrGadget 
StringCenter 
StringInfo 
StringInfoPtr 
StringLength 
StringRight 
STX 

SUB 

SubCList 
SUBNUM 
SubTime 

SUD 

SUL 
SumKickData 
SumLibrary 
SuperBitMap 
SuperState 
SuperUnused 
SUpFront 
SUserF lags 
SwapBitsRastPortClipRect 
SWriteBits 
SymmetricDiff 
SYN 
SyncSBitMap 
SysGadget 
SysRequest 

Tl 


Tal1Dot 

tan 

tanh 

Task 

TaskF lags 
TaskF lagsSet 
TaskPtr 
TaskState 
TaskStateSet 
TBCHCIrTab 
TBCHC1rTabsAl1 
TDAddChangeInt 
TDA11owNon35 
TOChangeNum 
TDChangeState 
TDErrBadDriveType 
TOErrBadHdrSum 
TDErrBadSecHdr 
TDErrBadSecID 
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System 

System 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Strings 
Intuition 

ASCII 

ASCII 

CList 

Intuition 
TimerDevice 
Blit 

Blit 

Exec 

Libraries 
Intuition 
Interrupts 
Intuition 
Intuition 

Gels 

Layers 
Preferences 
LargeSets 

ASCII 

RomLayers 
Intuition 
Intuition 

Tasks 

Tasks 

Tasks 

Text 

MathLiba 
MathLiba 

Tasks 

Tasks 

Tasks 

Tasks 

Tasks 

Tasks 
ConsoleDevice 
ConsoleDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 


VAR 

VAR 

CONST 
CONST 
CONST 
TYPE 

TYPE 
PROCEDURE 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
PROCEDURE 
CONST 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
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TDErrBadSecSum 
TDErrBadUnitNum 
TDErrDiskChanged 
TDErrDriveInUse 
TDErrNoMem 
TDErrNoSecHdr 
TDErrNotSpecified 
TDErrPostReset 
TDErrSeekError 
TOErrTooFewSecs 
TOErrWriteProt 
TOExtCom 
TOFormat 
TOGetOriveType 
TOGetNumTracks 
TOLabelSize 
TOLastComm 
TDMotor 

TDName 
TOProtStatus 
TDRawRead 
TORawWrite 
TORemChangeInt 
TORemove 
TOSecShift 
TOSector 

TOSeek 
TOUPublicUnit 
TOUPublicUnitPtr 
termCH 

termCH 

TExcept 

Text 

TextAttr 
TextAttrPtr 
TextFont 
TextFontPtr 
TextLength 
TicksPerSecond 
TimerBase 
timerequest 
timerequestPtr 
TimerName 
timeval 
timevalPtr 
TLaunch 

TmpRas 
TmpRasPtr 
ToggleSelect 
TopazEighty 
TopazSixty 
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TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
TrackDiskDevice 
InOut 

TermInOut 

Tasks 

Text 

Text 

Text 

Text 

Text 

Text 

AmigaDOS 
TimerDevice 
TimerDevice 
TimerDevice 
TimerDevice 
TimerDevice 
TimerDevice 
Tasks 

Rasters 

Rasters 
Intuition 
Preferences 
Preferences 


CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 
TYPE 
VAR 
VAR 
CONST 
PROCEDURE 
TYPE 
TYPE 
TYPE 
TYPE 
PROCEDURE 
CONST 
VAR 
TYPE 
TYPE 
CONST 
TYPE 
TYPE 
CONST 
TYPE 
TYPE 
CONST 
CONST 
CONST 


C-49 


Modula-2 Software Construction Set Reference Guide 


TopBorder Intuition CONST 
TopHit Gels CONST 
TProcTime Tasks CONST 
TRAddRequest TimerDevice CONST 
Translate Translator PROCEDURE 
TranslatorBase Translator VAR 
TranslatorName Translator CONST 
TrapRange Tasks TYPE 
TrapSet Tasks TYPE 
TRGetSysTime TimerDevice CONST 
TRMakeBad Translator CONST 
TRNoMem Translator CONST 
TRNotUsed Translator CONST 
TRSetSysTime TimerDevice CONST 
TRUNCd System PROCEDURE 
TRUNCS System PROCEDURE 
TSAdded Tasks CONST 
TSExcept Tasks CONST 
TSInvalid Tasks CONST 
TSReady Tasks CONST 
TSRemoved Tasks CONST 
TSRun Tasks CONST 
TStackChk Tasks CONST 
TSWwait Tasks CONST 
TSwitch Tasks CONST 
TypeOfMem Memory PROCEDURE 
UCopList Copper TYPE 
UCopListPtr Copper TYPE 
UCopperListinit Copper PROCEDURE 
Underlined Text CONST 
UnGetCLChar CList PROCEDURE 
UnGetCLWord CList PROCEDURE 
Union LargeSets PROCEDURE 
Unit I0Devices TYPE 
UnitActive 10Devices CONST 
UnitFlags 10Devices TYPE 
UnitFlagsSet I0Devices TYPE 
UnitInTask I0Devices CONST 
UnitMicroHz TimerDevice CONST 
UnitPtr I0Devices TYPE 
UnitVBlank TimerDevice CONST 
UnLoadSeg AmigaDOS PROCEDURE 
UnLock AmigaDOS PROCEDURE 
UnlockIBase IntuitionBase PROCEDURE 
UnlockLayer Layers PROCEDURE 
UnlockLayerInfo Layers PROCEDURE 
UnlockLayerRom RomLayers PROCEDURE 
UnlockLayers Layers PROCEDURE 
UnPutCLChar CList PROCEDURE 
UnPutCLWord CList PROCEDURE 
UpfrontLayer Layers PROCEDURE 
Upper ASCII CONST 
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UpperOrLower 
US 
UserState 
USLegal 
USLetter 
Vacate 
VanillaKey 
VBeamPos 
View 
ViewAddress 
ViewModes 
ViewModesSet 
ViewPort 
ViewPortAddress 
ViewPortPtr 
ViewPtr 

VMo 

VM12 

VM3 

VM4 

VM5 

véMg 

VPHide 
VPosrLOF 
VSF12 

VSF13 

VSF14 

VSF15 

VSF4 

VSF5 

VSF6 

VSF7 
VSizeBits 
VSizeMask 
VSOverflow 
Vsprite 
VSprite 
VSpriteFlags 
VSpriteFlagsSet 
VSpritePtr 
VT 
VUserStuff 
Wait 
WaitBlit 
WaitBOVvP 
WaitForChar 
WaitIo 
WaitPort 
WaitTOF 

WBS 

WBArg 
WBArgPtr 


ASCII 
ASCII 
Interrupts 
Preferences 
Preferences 
Semaphores 
Intuition 
Blit 
Views 
Intuition 
Views 
Views 
Views 
Intuition 
Views 
Views 
Views 
Views 
Views 
Views 
Views 
Views 
Views 
Display 
Gels 

Gels 

Gels 

Gels 

Gels 

Gels 

Gels 

Gels 

Blit 

Blit 

Gels 

Gels 

Gels 

Gels 

Gels 

Gels 
ASCII 
Gels 
Tasks 
Blit 
Views 
AmigaDOS 
I0Devices 
Ports 
Blit 
Workbench 
Workbench 
Workbench 
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CONST 
CONST 
PROCEDURE 
CONST 
CONST 
PROCEDURE 
CONST 
PROCEDURE 
TYPE 
PROCEDURE 
TYPE 

TYPE 

YRE 
PROCEDURE 
TYPE 

TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
TYPE 

TYPE 

TYPE 

TYPE 
CONST 
TYPE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
CONST 
RE 

TYPE 
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WBDevice 
WBDisk 
WBDiskMagic 
WBDiskVersion 
WBDrawer 
WBenchClose 
WBenchMessage 
WBenchMsg 
WBenchOpen 
WBenchScreen 
WBenchToBack 
WBenchToFront 
WBenchWindow 
WBGarbage 
WBKick 
WBProject 
WBStartup 
WBStartupPtr 
WBTool 
WDownBack 
WOragging 
WF18 

WF19 

WF20 

WF21 

WF22 

WF23 

WF27 

WF28 

WF29 

WF38 

WF31 

WF6 

WF7 
WhichLayer 
WideDot 
Window 
WindowActive 
WindowClose 
WindowDepth 
WindowDrag 
WindowF lags 
WindowF lagsSet 
WindowLimits 
WindowPtr 
WindowRefresh 
WindowSizing 
WindowTicked 
WindowToBack 
WindowToFront 
Write 

Write 
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Workbench 
Workbench 
Workbench 
Workbench 
Workbench 
Intuition 
Intuition 
System 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Workbench 
Workbench 
Workbench 
Workbench 
Workbench 
Workbench 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Layers 
Text 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
Intuition 
AmigaDOS 
InOut 


CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 

VAR 

CONST 
CONST 
PROCEDURE 
PROCEDURE 
CONST 
CONST 
CONST 
CONST 
TYRE 

TYPE 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
CONST 
PROCEDURE 
CONST 
TYPE 
CONST 
CONST 
CONST 
CONST 
TYPE 

TYPE 
PROCEDURE 
TYPE 
CONST 
CONST 
CONST 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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Write Terminal PROCEDURE 
Write TermInOut PROCEDURE 
WriteCard InOut PROCEDURE 
WriteCard TermInOut PROCEDURE 
WriteChar FileSystem PROCEDURE 
WriteExpansionByte Expansion PROCEDURE 
WriteHex InOut PROCEDURE 
WriteHex TermInOut PROCEDURE 
WriteInt InOut PROCEDURE 
WriteInt TermInOut PROCEDURE 
WriteLn InOut PROCEDURE 
WriteLn Terminal PROCEDURE 
WriteLn TermInOut PROCEDURE 
WriteLongCard LongInOut PROCEDURE 
WriteLongHex LongInOut PROCEDURE 
WriteLongInt LongInOut PROCEDURE 
WriteLongOct LongInOut PROCEDURE 
WriteOct InOut PROCEDURE 
Writedct TermInOut PROCEDURE 
WritePixel Drawing PROCEDURE 
WritePotgo PotgoResource PROCEDURE 
WriteReal RealInOut PROCEDURE 
WriteString InOut PROCEDURE 
WriteString Terminal PROCEDURE 
WriteString TermInOut PROCEDURE 
WriteWord FileSystem PROCEDURE 
WriteWrd InOut PROCEDURE 
WTractor Preferences CONST 

WUpFront Intuition CONST 

XorRectRegion Regions PROCEDURE 
XorRegionRegion Regions PROCEDURE 
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Conversion from "C" to Modula-2 


The technical documentation available for the Amiga is oriented towards the 
language "C". Since it will be necessary to refer to that documentation it 
will be important to understand the way Modula-2 is related to "C". 


The information presented here is designed to be a short guide to 
converting from "C" to Modula-2. Many of the language features available in "C" 
are available in Modula-2 in one form or another. Therefore an almost verbatim 
conversion of a "C" program is possible. To facilitate a conversion you must 
become familiar with some of the basic workings of "C" and the corresponding 
Modula-2 constructs. 


Comments 


In "C" comments begin with the sequence "/*" and end with "*/", For 
Modula-2 the same rules apply except the starting sequence is "(*" and the 


ending sequence is "*)". Unlike in "C" comments jn Modula-2 may be nested to 
any level. 


Identifiers 


"C" allows identifiers to made up of a sequence of letters and digits and 
the underscore "_" character. Modula-2 defines identifiers as only letters and 
digits, however this implementation allows the underscore "_" character. 


Integer Constants 


An integer constant consists of a sequence of digits. Integer constants 
may be defined in several different bases decimal, octal and hex. In "Cc" long 
integer constants are specified with the character "L" after the number in 


Modula-2 the same effect can be achieved using the character "D" after the 
number. 


nG* Modula-2 Description 

10 10 decimal 

Ox4A 4AH hexadecimal 

377 377B octal 

OxFCOG1800 @FCOO1000H long hexadecimal 
10008L 100000 long decimal 
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Character Constants 


A character constant in "C" is always defined as a character in single 
quotes. In Modula-2 a character may be defined in double or single quotes or as 
an octal value. In addition this implementation supports all of the "C" escape 
sequences which begin with a "\" character. 









vce Modula-2 Description 

me "a normal character 
Nine "\n’ newline character 
UNI?” 10C octal character 
"\44’ *\44’ octal character 


Floating Point Constants 





Floating point constants have the almost same representation in "C" as in 
Modula-2. The only minor difference is that Modula-2 requires at least one 
digit before the decimal point. This may require adding a zero digit before 
the decimal point if one does not already exist. 


String Constants 


"C" defines a string constant as characters between double quotes. In 
Modula-2 a string may be surrounded with single or double quotes. In addition 
this implementation supports all of the escape sequences which begin with "\". 
Refer to the chapter on the compiler for additional information. Both in "C" 
and Modula-2 strings are represented as a sequence of characters terminated by a 
null character. 


lvalue 


An lvalue is an expression referring to an addressable object. In Modula-2 
this is called a designator and may consist of any number of pointer 
dereferences "“", array indexes "[]" or field references ".". The major 
difference between a designator and an lvalue is that in "C" an lvalue can be a 
full expression with operators, this is not allowed in Modula-2 directly. 
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Simple Data Types 


Modula-2 has a richer set of data types than "C". Therefore every "C" type 
has a corresponding Modula-2 type, and in some cases it may be useful to convert 
a "C" type not to its direct equivalent but into a Modula-2 type which has a 
better mapping of the data being handled. The following table describes each 
type available in "C" and its direct equivalent in Modula-2. The "C" type "int" 
is not specifically listed because depending on the implementation it is 
equivalent to a "short" or a "long" "int". In the "Lattice C" implementation an 
"int" is equivalent to a "long". In the "Aztec C" implementation an "int" is 
equivalent to a "short". 


Conversion from "C" Types to Modula-2 Types 





char CHAR 
unsigned char CHAR 
short INTEGER 
unsigned short CARDINAL 
long LONGINT 
unsigned long LONGCARD 
float REAL 














BYTE BYTE or CHAR 
UBYTE BYTE or CHAR 
BYTEBITS SET OF [0..7] 
WORD INTEGER 
UWORD CARDINAL 
WORDBITS SET OF [@..15] or BITSET 
LONG LONGINT 
ULONG LONGCARD 
LONGBITS SET OF [@..31) 
STRPTR ADDRESS or POINTER TO CHAR 
APTR ADDRESS 
CPTR ADDRESS 
SHORT INTEGER 
USHORT CARDINAL 
FLOAT REAL 
DOUBLE REAL 
COUNT INTEGER 
UCOUNT CARDINAL 
BOOL INTEGER or BOOLEAN 
TEXT CHAR 
MORSE COC SIONS aces ee care + 
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In the previous table the "C" types used by much of the Amiga software are 
shown with their Modula-2 equivalents. These types are defined in the "C" 
include file "“exec/types.h". 


Pointer Type 


Pointers in "C" and Modula-2 are very similar and can be converted easily 
from one to the other. 





Declaration: 
"ce Modula-2 
struct Node *np; np: POINTER TO Node; 
char *cp; cp: POINTER TO CHAR; 
Usage 
Wel Modula-2 
np = &myNode; np := ADR(myNode) ; 
np->next = lastNode; if t= lastNode; 
xep = 71’; 3 

Array Type 


Arrays in "C" are less flexible then in Modula-2 and therefore are easily 
converted to Modula-2. The main difference is in "C" an array always begins at 
index @, while in Modula-2 the array index may begin at any value. 





Declaration: 

“gu Modula-2 

char msg[40] msg: ARRAY [@..39] OF CHAR; 
char map[10][10] mtx: ARRAY [@..9],[@..9] OF CHAR 
Usage: 

Lot) Modula-2 

mnSOlx]) sade" s MmSOEXI = 717; 

map[x][y] = ’*’5 map[x][y] = ’*’; 


Structure Type 


The structure type in 


Modula-2. 


Declaration: 
nem 


"cH 


is almost 


Modula-2 


Conversion from "C" to Modula-2 


identical 


TYPE NodePtr = POINTER TO Node; 
Node = RECORD 


3; 


struct Node *np; 





next : NodePtr; 
x, y : LONGINT; 
END; 
VAR np : NodePtr; 
Modula-2 





Union Type 


The union type in "C" can be emulated using 
The form may look different but the actual 


result is 


identical. 


simply a mapping of a given storage with several different types. 


Declaration: 
"oH 





struct Node 
{ 


union pt 
{ 
long x; 
long y; 


Node *next; 


}; 


struct Node *np; 


Modula-2 


TYPE NodePtr = POINTER TO Node; 
Node = RECORD 


next : NodePtr; 
CASE :CARDINAL OF 





np->y = 20L; 


|@: x : LONGINT; 
{1: y : LONGINT; 
END; 
END; 

VAR np : NodePtr; 

Modula-2 

np 

np7 





to the RECORD type in 
To convert from one to the other only the syntax is changed. 


a variant RECORD in Modula-2. 


A union is 
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Function Type 


The function type in "C" is very similar to the procedure type in Modula-2. 
A variable declared as a procedure type is actually a pointer to a procedure 
which takes the specified parameters. 


Boolean Type 


"C" does not have an explicit BOOLEAN type instead integers are used as 
booleans. The values of TRUE and FALSE in both "C" and Modula-2 are the same. 
TRUE is equal to one, FALSE is equal to zero. The major difference is in "C" 
many times any non-zero value is considered as true, however in Modula-2 only 
the value specified by the constant TRUE is valid. 


Set Types 


In "C" set types are implemented using integers and "C" allows operations 
on integers such as ORing, ANDing, etc. In Modula-2 set types are a separate 
type specified as "SET OF ...". The following table gives the Modula-2 
equivalents for typical bitwise related operations. 


Table of Conversion for Set Operators 





Type Conversion 


"C" performs implicit type conversion when operands of different types are 
used in an expression. Modula-2 does not perform implicit conversion, however 
the same effect can be achieved by using explicit coercion in Modula-2 also 
called type transfer. 
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Type Casting 


Type casting is a facility available in "C" which is almost identical to 
type coercion in Modula-2. Type casting converts an operand of a given type 
into a different type. The difference between the two is the syntax used by the 
two languages. 


sc* Modula-2 
(char)a CHAR(a) 
(struct *Node)tree NodePtr(tree) 
(Jong)x LONGINT (x) 


"if" Statement 


The “if" statement in "C" is very similar to the "IF" statement in 
Modula-2. Except that in "C" any non-zero value is considered to be true, zero 
is always false. In Modula-2 the value must be of BOOLEAN type and be equal to 
either the constant TRUE or FALSE. 


1M Modula-2 


if (a == b) 





"while" Statement 


The "while" statement in "C" is very similar to the "WHILE" statement in 
Modula-2. Except that in "C" any non-zero value is considered to be true, zero 
is always false. In Modula-2 the value must be of BOOLEAN type and be equal to 
either the constant TRUE or FALSE. 


"c* Modula-2 






while (a == b) WHILE a = b DO 
{ ot e=) Yo. 

xX = Y5 END; 
5 
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"do" Statement 


The "do" statement in "C" is very similar to the "REPEAT" statement in 
Modula-2. Except that in "C" any non-zero value is considered to be true, zero 
is always false. In Modula-2 the value must be of BOOLEAN type and be equal to 
either the constant TRUE or FALSE. In addition the "do" statement ends on 
false, but the "REPEAT" statement ends on true. 


Nor Modula-2 

do REPEAT 

{ xX t= Y5 
x= Y; UNTIL a <> b; 


} 
while (a == b); 


"for" Statement 


The "for" statement in "C" is similar to the "FOR" statement in Modula-2. 
The “for” statement in "C" allows any expression to be used for the 
initialization, limit and increment. Some times it is used in such a way that 
it can not be directly translated to Modula-2, in this situation a "WHILE" 
statement should be used to emulate the "for" statement. 





4c" Modula-2 
for(x=1; x <= 10; x++) pO 
{ 
y=X; 
} 


"switch" Statement 


The "switch" statement in "C" can be emulated in Modula-2 using the "CASE" 
statement. The "default" clause in a "switch" statement is equivalent to 
specifying the "ELSE" clause in a "CASE" statement. 


ieee Modula-2 
switch (cmd) CASE cmd OF 
{ | ’P’: PrinterLog(); 
case ’P’: PrinterLog(); | 7b? se ListFtles(); 
break; ELSE 
case ’L’: ListFiles(); NoCmd(); 
break; END; 
default : NoCmd(); 
break; 
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"break" Statement 


There is no direct equivalent to the "break" statement available in 
Modula-2. One way to simulate the “break" statement is to use the "EXIT" 
statement within a "LOOP" statement. Statement sequences which use "break" may 
have to be changed to another form in order to work properly, this can be done 
easily in most cases. 


sce Modula-2 
For(;3) LOOP 
: EXIT; 
break; S58 
adie END; 
} 


"continue" Statement 


There is no direct equivalent to the "continue" statement available in 
Modula-2. Statement sequences which use "continue" may have to be changed to 
another form in order to work properly, this can be done easily in most cases. 


"return" Statement 


The "return" statement in "C" is very similar to the "RETURN" statement in 
Modula-2. The main difference is that in a Modula-2 procedure which returns a 
value must have a "RETURN" statement to work properly, while in "C" the "return" 
statement is not required. 


Lior) Modula-2 








return(-1); RETURN (-1); 
return(sin(x+y)); RETURN sin(x+y); 
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"goto" Statement 


The “goto" statement in "C" has no direct counterpart in Modula-2. 
it is common practice to use "LOOP" and "EXIT" 
rather elegantly. 


However 
to simulate a "goto" statement 


sow Modula-2 
Fon (33) Loop 
oie EXIT; 
goto done; a 
Gok EXIT; 
goto done; 596 
fern END; 
} 
done: 
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Conversion From TDI To M2SCS 


This appendix describes how a program written for TDI Modula-2 version 3.00 
may be translated to work under the M2SCS environment. The differences between 
the two compilers is discussed as well as the differences in the libraries. The 
difficulty of conversion depends on the particular program, but generally is not 
very difficult, in most cases once the program is successfully compiled using 
M2SCS the program will have a very good chance of running the first time 
through. 


Since the edit-compile cycle is very fast the changes which have to be made 
to the source can be performed and checked very quickly. The majority of the 
conversion process will probably involve changes relating to the library 
modules. However, M2SCS has almost every facility available in the TDI 
implementation so in most cases it will not be necessary to write additional 
modules when converting programs. Further, M2SCS in many cases gives you 
several choices for accompishing the same function so the conversion is made 
much easier. 


Compiler Differences 


This section describes the differences between the compilers in the two 
implementation. Both compilers implement Modula-2 fully and so the differences 
are relatively minor. M2SCS provides some extensions not available in the TDI 
implementation but this will not effect the conversion of programs to M2SCS. 


Both compilers implement compiler switches imbedded in user comments, 
however the switches have different meanings and it will be necessary to remove 
all compiler switches from source files before recompiling the source using 
M2scs. 


The TDI compiler implements sets larger than a machine word within the 
compiler, this is a very non-standard feature not defined by the language. 
M2SCS implements large sets but in a standard way, via a library module called 
"LargeSets". A large set is defined as a set which has more than 32 elements. 
To convert a program which uses this non-standard feature of the TOI compiler 
change operations on the set to procedure calls to the "LargeSets" module. 


The TDI compiler implements the type ADDRESS as a POINTER TO WORD. M2SCS 
implements the type ADDRESS as a POINTER TO BYTE. The smallest addressable unit 
of storage on the MC680@0 series is a BYTE not a WORD and so the POINTER TO BYTE 
definition is more accurate. Further, the TDI implementation uses ADDRESS to 
refer to objects which may actually not be on a WORD boundary, this does not 
Cause any problems because in most cases the objects are not dereferenced using 
the ADDRESS type. In almost all cases no change needs to be performed in the 
source unless the ADDRESS is actually dereferenced. In the case the ADDRESS is 
dereferenced simply define a type called ADDRESSW as POINTER TO WORD and the 
same effect will be produced. 


Constants in both compilers are handled very similar with one small 
exception, LONGINT/LONGCARD decimal constants have to be followed by the letter 
"D" in M2SCS. In the TDI implementation this is optional. In M2SCS an 
assignment of a CARDINAL/INTEGER to a LONGINT/LONGCARD can be performed without 
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any type coercion so that in many cases not specifying a "D" will not cause any 
problem however in an expression the "D" is not optional when one of the 
operands is of LONGINT/LONGCARD while the other is a decimal constant not 
followed by the character "D". 


Since M2SCS is a single pass compiler a procedure has to be defined before 
it may be referenced. When translating a program it may be necessary to 
rearrange the procedures in the source file to avoid referencing procedures 
before they are defined. To allow procedures to be referenced before they are 
used M2SCS allows a procedure to be "FORWARD" defined, for more information on 
this feature refer to the compiler chapter of this manual. 


The TDI compiler defines the standard constant NIL not as @ but as -l, 
M2SCS defines NIL as 8. Almost all of the routines in the libraries which 
return pointers, return either a valid pointer or 9. So, TDI’s choice of a 
value of -1 for NIL was not a very good one. However, the SYSTEM module in 
TDI’s compiler defines a constant NULL which has a value of @. When converting 
a module which has many uses of the constant NULL either perform a search and 


replace of NULL with NIL or at the beginning of the module define the constant 
NULL = NIL. 


The TDI implementation allows a constant string to be passed to a VAR 
parameter specified as "ARRAY OF CHAR". This is not allowed in standard 
Modula-2. Within the procedure the address of this parameter is sometimes 
taken, the equivalent effect can be achieved in the following manner: 


* Declare parameter as ARRAY OF CHAR, non VAR 
* Use $D compiler switch to disable copying of parameter 


The following code fragments demonstrates the above stated ideas: 
TOI Implementation: 
PROCEDURE Node(VAR s: ARRAY OF CHAR); 
VAR sp: ADDRESS; 
BEGIN 
‘sp t= ADR(s); 
END Node; 
M2SCS Implementation: 
(*$D- disable copying of dynamic parameter *) 
PROCEDURE Node(s: ARRAY OF CHAR); 
VAR sp: ADDRESS; 
BEGIN 
“sp i= ADR(S); 
END Node; 
(*$0+ enable copying of dynamic parameter *) 
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There may be other minor differences between the two compilers, but they 
should not pose any great difficulty to converting programs to M2SCS. 


Standard Modules 


This section describes the differences in the modules available in one form 
or another on most Modula-2 implementations. 


The FileSystem module available in M2SCS is not available in the TDI 
implementation. A rough equivalent is the non-standard Streams module. The 
most important difference is that unlike the Streams module the FileSystem 
module buffers the data, this feature improves i/o performance by as much as 10 
fold. 


The InQut module is available in both the M2SCS and TDI implementations. 
The modules are nearly identical. If the InOut module will only be used for 
terminal i/o then it may be more efficient to use the TermInOut module. When 
using InOut for file i/o the M2SCS implementation is much more efficient because 
it relies on the FileSystem module which implements buffered i/o. 


The LongInOut module is available in both the M2SCS and TDI 
implementations. The modules are nearly identical. When using LongInOut for 
file i/o the M2SCS implementation is much more efficient because it relies on 
the InOut module which in turn relies on the FileSystem module. 


The MathLib@ module is available in both the M2SCS and TDI implementations. 
The M2SCS module contains additional mathematical procedures not available in 
the TOI implementation. In M2SCS before using the procedures in the MathLibo 
module the Amiga’s "mathtrans.library" must be opened successfully, this is 
simplified by using the InitMathLib® module. 


The RealInOut module is available in both the M2SCS and TDI 
implementations. When using RealInOut for file i/o the M2SCS implementation is 
much more efficient because it relies on the InOut module which in turn relies 
on the FileSystem module. 


The Storage module is available in both the M2SCS and TDI implementations. 
In the TOI implementation a specified amount of memory must be set aside for the 
heap. In the M2SCS implementation memory is only allocated from the system as 
it is actually requested by calls to ALLOCATE, in addition a variation of the 
Storage module is provided called Heap. The Heap module exports the same 
Procedures as the Storage module however it provides another procedure called 
FreeHeap which frees all memory still in use, the Heap module is useful for 
programs which do not use DEALLOCATE to free memory. 


The Terminal module is available in both the M2SCS and TDI implementations. 
The modules are nearly identical. The M2SCS Terminal module performs i/o 
through the StdInput and StdOutput file handles defined in the module System. 
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Amiga Modules 


This section discusses the differences between the Amiga hardware/software 
related modules. To convert a program from TDI to M2SCS it may be necessary to 
import procedures, types, etc. from modules with different names than in the TOI 
implementation, a table at the end of this appendix show which module in the TDI 
implementation corresponds to a module in the M2SCS implementation. 


In M2SCS ROM resident Amiga libraries are opened automatically by the 
startup code and closed by the exit code. Opening a ROM resident library does 
not cause any memory to be used and makes writing programs easier, disk resident 
libraries must still be explicitly opened by the user. In the TDI 
implementation libraries must be opened by the user’s code explicitly. When 
convert a program remove the code which opens the ROM resident libraries. The 
following Amiga ROM resident libraries are opened and closed automatically by 
M2SCS: 


exec. library (referenced directly at AbsExecBase) 
dos. library 

graphics. library 

intuition. library 

Jayers. library 

mathffp. library 


Pa ee ae? 


Some TDI programs exit by calling the AmigaDOS Exit procedure. When using 
M2SCS always exit by the module body of the main module or using the HALT 
standard procedure. The M2SCS exit code closes the libraries opened by the 
startup code and also handles the necessary communications with the WorkBench 
environment. Replace all calls to the Exit procedure with calls to the standard 
procedure HALT when converting from the TOI implementation. 


In the TDI implementation many objects are passed to procedures via a 
pointer to the object, in M2SCS almost all parameters which pass fixed size 
structures are declared as VAR parameters. In order to compile successfully the 
pointers must be derefenced using the ’~’ operator. A VAR parameter also causes 
the pointer to the object to be passed, the advantage to using VAR parameters is 
that type checking can not be disabled accidentally. Since ADDRESS is 
compatible with all pointer types, it would be easy to accidentally pass an 
ADDRESS for any pointer parameter without any warning from the compiler 


Procedures which may be passed different types of parameters are declared 
as ADDRESS parameters to allow a pointer to any type to be passed without type 
coercion. The other exception to using VAR parameters is when a NIL value may 
be passed for a procedure parameter. 
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The following example shows the conversion necessary for many of the 


procedures in the Amiga libraries. 


TOI Declaration: 


PROCEDURE CloseWindow(W: WindowPtr) ; 


TDI Usage: 
VAR 
wp: WindowPtr ; 
BEGIN 


“CloseWindow(wp); 


M2SCS Declaration: 


PROCEDURE CloseWindow(VAR w: Window); 


M2SCS Usage: 
VAR 
wp: WindowPtr; 
BEGIN 


“CloseWindow(wp”); 


The following table shows a 
corresponding modules in M2SCS. 


TDI Module 


ADKBits 

Alerts 
AmigaUtils 
AMIGAX 
ANSIConsole 
ANSIPrinter 
Areas 

ASCII 
AudioDevice 
Blitter 
BlitterHardware 
CIAHardware 
CIAResource 
ClipboardDevice 
CListLibrary 
Colors 
CommandLine 


rough corelation of TDI modules and their 


M2SCS Module(s) 


ADKHardware 
Alerts 
System 


Areas 

ASCII 
AudioDevice 
Blit 

Blit 
CIAHardware 
CIAResource 
ClipboardDevice 
CList 

Views 
System 
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TDI Module 


ConfigRegs 
ConfigVars 
ConsoleDevice 
Conversions 
Copper 
CopperUtils 
CustomHardware 
Devices 
DiskFontLibrary ° 
DiskResource 
DMABits 
DMAUtils 
DOSCodeLoader 
DOSExtensions 
DOSFiles 
DOSLibrary 
DOSProcessHandler 
EasyGadgets 
Exec 

ExecBase 
Expansion 
FileHandler 
Gadgets 
GadgetUtils 
GamePortDevice 
Gels 
GraphicsBase 
GraphicsLibrary 
IconLibrary 
Indut 
InputDevice 
InputEvents 
IntBits 
Interrupts 
Intuition 
IntuiUtils 

10 
KeyboardDevice 
Layers 
LayersLibrary 
Libraries 
Lists 
LongHyperMathLib 
LonginOut 
LongMathLib& 
M2Conversions 
MathLibd 
Memory 


M2SCS Module(s) 


ConfigRegs 
Expansion 
ConsoleDevice 
Conversions, RealConversions 
Copper 
CopperUtil 
CustomHardware 
I0Devices 
DiskFont 
DiskResource 
DMAHardware 
OMAHardware 
AmigaDOS 

Ami gaDOSExt 
AmigaDOS 
AmigaDOS 
AmigaDOSProcess 
SimpleGadgets $$ 
Exec 

ExecBase 
Expansion 

Fi leHandler 
Intuition 
SimpleGadgets $$ 
GamePortDevice 
Gels 
GraphicsBase 
Graphics, Blit 
Workbench 

InOut, TermInOut 
InputDevice 
InputEvents 
INTHardware 
Interrupts 
Intuition 
Intuition 
I0Devices 
KeyboardDevice 
RomLayers 
Clipping, Layers 
Libraries 

Lists 


LongInOut 


Conversions, RealConversions 
MathLib& 
Memory 


Key: 


$$ 


TDI Module 


Menus 
MenuUtils 
NarratorDevice 
Nodes 
ParallelDevice 
Pens 

PenUtils 

Ports 
PortUtils 
PotgoResource 
Preferences 
PrinterDevice 
PrtBase 
RandomNumbers 
Rasters 
RealInOut 
Regions 
Requesters 
Resident 
Resources 
RoundRobinScheduler 
Screens 
Semaphores 
SerialDevice 
Sprites 
Storage 
Streams 
Strings 

Tasks 

Terminal 

Text 
TimerDevice 
TrackDiskDevice 
TranslatorLibrary 
Trapper 

Views 

Windows 
Workbench 


no equivilant module 
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M2SCS Module(s) 


Intuition 
SimpleMenus $$ 
NarratorDevice 
Nodes 
ParallelDevice 
Drawing 
Drawing 

Ports 
PortsUtil 
PotgoResource 
Preferences 
PrinterDevice 
PrinterBase 
RandomNumbers 
Rasters 
RealInOut 
Regions 
Intuition 
Resident 
Resources 
Intuition 
Semaphores 
SerialDevice 
Sprites 
Storage, Heap 
FileSystem 
Strings 

Tasks 

Terminal 

Text 
TimerDevice 
TrackDiskDevice 
Translator 
RunTimeErrors 
Views 
Intuition 
Workbench 


module part of add-on product available seperately 
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Compatibility and Portability 


This appendix contains notes on compatibility between this Modula-2 
implementation and other Modula-2 implementations. This information will be 
useful when moving programs to or from other systems. In addition there are 
some notes on writing portable Modula-2 programs. 


A well written Modula-2 program can be easily moved to another system as 
long as the target system provides the library modules that are imported by the 
program. If the target system does not provide the necessary library modules 
the program can still be moved but the missing library modules will need to be 
implemented. 


Modula-2 Compiler 


The compiler included in this package conforms very closely to the Modula-2 
standard as described in the book "Programming In Modula-2" by Niklaus Wirth. 
The only minor deviation is that a procedure identifier has to be declared 
before it used. To call a procedure before it is declared the heading of the 
procedure is declared FORWARD. This deviation is present in many of the newer 
Modula-2 compilers because the advantages of a one pass compiler far outweighs 
the disadvantages of declaring a FORWARD procedure. 


If portability of the program is very important the pseudo-module SYSTEM 
should be avoided when ever possible. The module contains explicitly system 
dependent features for this implementation. Among implementation of Modula-2 on 
a given machine architecture the module SYSTEM should be fairly similar 
However, on very different architectures such as a MC68Q00 micro-processor and 
an IBM 370 mainframe computer the module SYSTEM may be very different. 


The compiler contains many useful enhancements such as new types and "C" 
language style string escape sequences. These enhancements may be used freely, 
but keeping in mind that they may not be available in every implementation of 
Modula-2. The following is a list of some of the enhancements: 


* 32-bit types LONGINT, LONGCARD 

* System dependent types BYTE, WORD, LONGWORD 

* Identifiers may contain underscore characters "_" 
* String literals allow escape sequences 

* FORWARD procedure declarations 

* CODE procedure declarations 


Standard Modules 


This implementation as well as most implementations of Modula-2 provide the 
following basic set of library modules: 


* FileSystem 
InOut 
RealInOut 
Storage 
Terminal 


4 4 4 * 


Modula-2 Software Construction Set Reference Guide 


A program which used only these basic modules could be easily moved to 
other systems with virtually no changes. Regrettably a program which used only 
the above mentioned modules would not be able to take advantage of many of the 
unique features of a given system. This is especially true of a feature rich 
system such as the Amiga. However, for some applications these modules may be 
sufficient to develop useful programs. For example a text formatter, a data 
base manager and many other applications could be easily written using this 
basic set of modules. 


Non Standard Modules 


In addition to the standard library modules supplied with this package a 
large number of non-standard library modules are provided. The non-standard 
modules fall into two general categories: 


* Amiga specific modules (ROM Kernel, Intuition, etc...) 
* Non Amiga specific modules (Strings, Files, etc...) 


Amiga specific modules allow a Modula-2 program to access the hardware of 
the Amiga as well as the many useful resident libraries built into the Amiga. A 
program which uses these modules will not be directly portable to other systems. 


If a program uses the various features of the Amiga such as windows, menus, 
etc. it may still be made portable by writing a layer of software between the 
core program and the Amiga specific modules. By introducing a system 
independent layer to the program it will be possible to port the program to 
system such as the Atari ST and the Apple Macintosh. 


The non Amiga specific modules such as CMemory, CString, CStdIO and others 
will be provided in future products for other computer systems. Using these 
modules will allow portability to systems on which this product is available. 
However, Modula-2 implementations from other vendor may not contain support for 
these modules. 
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Demonstration Programs 


This appendix describes briefly the demonstration programs included with 
this package. The demonstration programs are provided without extensive 
documentation or support. The demonstration programs have been tested but may 
contain bugs and/or poor error checking. The main purpose of the demonstration 
programs is to provide the user with a lot of sample code from which to learn 
how to program on the Amiga using Modula-2. The source code maybe freely used 
in any user created programs unless otherwise specified in the source. The 
demonstration programs range from the very complex to the trivial. Many of the 
programs not written by our company were found on bulletin boards and various 
communications networks, the programs were moved to the M2SCS environment so 
that users would have more examples of Modula-2 code. Demo programs not written 
by our company are essentially included on disk for the users convenience and 
are not to be considered as being sold by the company. The authors of some of 
the demonstration programs ask that you send them a small contribution for their 
effort, we encourage you to do this if you find that program useful in some way. 


Programs which consist of more than one module are contained in separate 
directories on the source demo disks. Each directory contains a file called 
"make", this file contains the proper compilation order for the program or 
programs in that directory. The "make" file may be used to manually compile 
each file or by sending the file to the standard input of the compiler to have 
all of the files compiled automatically. This can be done by making the 
directory containing the source files the current directory and then issuing the 
following command at the CLI prompt: 


M2 <make 


After the source files have been successfully compiled they may be linked 
into executable files ready to be run. 


The following is a list of the currently included demonstration programs 
This list may not be completely up to date with the actual contents of the 
disks, new programs may have been added or older programs removed. A name which 
is followed by (Dir) indicates the name of a sub-directory containing the 
program. 


Animal (Dir) 
An animal guessing game. The user picks an animal and then the computer 
tries to guess the name of the animal. This is a text oriented program. 


BigSets (Dir) 
A library module which implementation sets which are larger than a machine 
word. A test program for this new library module is included. This is a 
text oriented program. 


Case (Dir) 
A Modula-2 case converter. This program reads a Modula-2 source file 
converting all key words to upper case and other identifiers to the case in 
which they were found first. This is a text oriented program. 
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Chaos (Dir) 
A complex mathematically oriented graphics program which allows you to 


explore Henon Mapping. This program uses Intuition, IFF and many other 
features of the Amiga. 


CtoM2 (Dir) 
A very primitive "C" to Modula-2 translator. This program performs simple 
keyword substitutions. This is a text oriented program. 


Doodle (Dir) 
A very simple drawing program. This program uses Intuition extensively. 


DUtil (Dir) 
A very nice directory management program which can serve as a replacement 
for the less then friendly CLI user interface. This program allows many 
different operations to be performed on one or more files using the mouse. 
This program uses Intuition and AmigaDOS extensively. 


Gels (Dir) 
This directory contains examples of using the Graphics Elements(GELS) 
routines built into the ROM Kernel. The programs in this directory use the 
image resource utility "AddImg" to append imagery to the executable files. 


GWars (Dir) 

This is an excellent one or two player strategy game with very high quality 
graphics and sound effects. The object of the game is to destroy an 
opponents space ship by firing a missile. This would be easy except that 
the planets which occupy the screen have varying gravity fields which cause 
the missiles to act in ways which are difficult to predict. The imagery 
for the various planets used in the game is implemented using the image 
resource utility "“AddImg". This program uses Intuition, graphics and 
floating point math extensively. 


HP (Dir) 
A nice calculator program which emulates some of the commands of the HP-10C 
calculator. This program uses Intuition and floating point math. 


Kermit (Dir) 
A tele-communications program which supports the kermit protocol. This 
program provides a good example of using the "“serial.device". The major 
functions of this program seems to work reliably. The current 
implementation busy waits on input which is not very efficient but 
otherwise is a very good example. 


Mondrian (Dir) 
This program randomly generates modern art drawings. The parameters of the 
drawing can be controlled through menu selections. The colors of the 
custom screen can be adjusted with the program’s color requester. The 
color requester is in a separate module and maybe pulled out and used in 
user graphics programs. This program uses Intuition and graphics 
functions. 
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Othello (Dir) 
Play the game of Othello against the computer. This program plays a very 
good game of Othello and is not very easy to beat. The difficulty level of 
the game can be adjusted through a menu selection. The higher the 
difficulty the longer the computer will take to make its move. 


ShowDevs (Dir) 
A number of library modules which implement some AmigaDOS utility 


functions. A test program is included which partially emulates the 
AmigaDOS ASSIGN command. 


Spiro (Dir) 
A very good graphics program which draws various patterns on the screen 
The program uses Intuition and graphics functions extensively. 


Std (Dir) 
This directory contains about 50 simple programs found in an archive on a 
bbs. All of the programs in this directory are text oriented. 


TestMods (Dir 
This directory contains a collection of programs which were used to test 


some of the library modules included in this package. These programs also 
serve as examples of how to use the various modules. 


Trails (Dir) 


A very good interactive graphics program. This program uses Intuition and 
graphics functions extensively. 


WarpText (Dir) 
This directory contains library modules for performing very fast text 
output. These routines are written in assembly language for maximum speed. 
These routines are limited to output on byte boundaries and can not be used 
to output to a normal window. Programs to demonstrate how the modules are 
to be used are also included. 


XRef (Dir) 
A Modula-2 source text cross reference utility. This program produces a 
file containing the original source with a line number on each line, at the 
end of this file is a list of the symbols in the file with a list of the 


line numbers on which each symbol may be found. This program is text 
oriented. 


XText (Dir) 
This directory contains library modules for performing very fast text 
output to any window. These routines are written in assembly language for 
maximum speed. Unlike the WarpText routines these routines are not limited 
to output on byte boundaries and can therefore be used to output to any 
window. A program to demonstrate how to use the module are also included. 
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Misc (Dir) 
This directory contains a large number of good demonstration programs. Each 
source file in this directory is a complete program. The following is a 
description of each of the programs in this directory. 


AudioLab 
Audio device experimentation laboratory. Draw a waveform using the mouse 
and then play the waveform. 


AudioTools 


Procedures for playing simple music by queueing up notes. The procedures 
in this module simplify the use of the audio device. 


Bounce 


A 3D wire frame cube which bounces towards and away from the screen. This 
demo uses double buffered animation. 


Break 


An example of how to detect the user typing Ctri-c from the CLI to 
interrupt a program. 


CAD 

An example of a very simple Computer Aided Design (CAD) program. 
CliStuff 

This example contains code to determine the WindowPtr for a CLI window. 
ConsoleDemo 

An example of directly accessing the "console.device". 
CopperDemo 


An example of creating a user copper list. This copper list causes new 
values to be loaded into the color registers in the middle of the screen. 
This change effectively displays 64 colors simultaneously on the screen. 


CopperIntDemo 
‘An example of creating a user copper list. This copper list contains 
instructions to load the color registers as well as an instruction to 
generate a copper interrupt. 


Cube 


A very impressive animation of a 3D solid cube. This demo uses double 
buffered animation. 


DBufDemo 
Demonstration of double buffered drawing. The area functions are used to 
draw the graphics. 


Demonstration Programs 


Draw 
A fairly complete free hand drawing program. This program is a good 
example of how to use Intuition. The drawing program even has a 
magnification window for examining images very closely. 


DualPlay 
An example of dynamically adding an addition bitplane to the WorkBench 
screen. After adding the bitplane some lines are drawn into this bitplane 


FHTDemo 
Demonstration of the Fast Hartly Transform mathematical algorithm. This is 
very similar to the FFT used in many engineering applications. 


HAM 
Example of the Hold-and-Modify(HAM) graphics mode of Amiga. 

IFFCheck 
Check an IFF file for consistency. The names of the chunks found in the 
given IFF file are displayed. 

IntuiLab 


Intuition laboratory for experimenting with Intuition functions without 
having to perform all of the necessary setup. 


LargeSetsDemo 
Example of using the LargeSets module included in this package. 


LayersDemo 
Example of using the “layers.library" built into the ROM Kernel. 


Lines 


Example of opening Intuition window and drawing some random lines into the 
window. 


LinesDemo 
Example of drawing lines very quickly to a screen. 


Prime 
The famous sieve performance benchmark. 


QClock 
This program displays the current time and the amount of memory free in the 
system. This data is displayed in the title bar of a window. 


Queens 


The solution to the eight queens problem. Each of the possible board 
positions is displayed graphically. 
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RayTrace 
The very popular ray tracing graphics program. This program may be used to 
generate some breathtaking pictures using the HAM graphics mode. 


Robot 
Type text on the keyboard and the Amiga will convert the text to speech. 


While the speech is being played a robot mouth will move in synchronization 
with the speech. 


‘SBM 
An example of the Intuition Super BitMap window. Random lines are drawn 
into a virtual window. The contents of the window may be output to the 
printer. 

ShowArgs 
This program displays the arguments listed on the command line if any. 

ShowILBM 
A utility for displaying pictures stored in IFF ILBM format. This program 
maybe used from either the CLI or the WorkBench. Any number of filenames 
may be specified. 

Sier 


A graphics program which draws sierpinsky curves. 


SimpleTest 
A test program for some of the "Simple" modules. 


Sparks 
A graphics program with lines bouncing from the edges of the display. 


SpeechDemo 
A demonstration of using the Amiga’s text to speech converter routines. 


Stereo 
An example of stereo sound output via the audio hardware. 


Sweep 
An example of using the audio hardware, the generated sound varies as the 
mouse is moved up and down. 


TaskDemo 
A demonstration of spawning multiple tasks. Each task draws rectangles of 
acertain color. After all the tasks have terminated the program exits. 


TermInOutDemo 
An example of using the TermInOut module included with this package. 
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TimerDemo 
An example of using the "timer.device". 


WBWindow 


An example of how to safely close the default output window opened when 
programs are executed from the WorkBench. 


WindowDemo 


A simple demonstration of how to open a window and receive mouse movement 
events. 
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Glossary 


This appendix contains a glossary of technical terms used through out this 
manual. Each term listed here has a brief explanation. For addition 
information refer to other technical documentation. 


ASCII 


Assembler 


Assembly Language 


Binary 


Buffered I/0 


Byte 


Character 


cLt 


"C" Language 


Compiler 


An acronym for American Standard Code for Information 
Interchange. A set of character code between @ and 127 
representing printing and non-printing characters. 


A program which takes as input an assembly language source 
file. The output of this program is a binary representation 
of the file. An assembler which supports macros is called a 
macro assembler. 


A high-level representation of the native language of the 
computer. Each machine level instruction is represented as 
a symbolic command. Assembly language is useful for 
programing short but very efficient functions. The language 
is very difficult to learn and is uneconomical to use for 
large projects. 


A number represented in base two. A binary number consists 
of ones and zeros, the number of ones and zeros determines 
the range of numbers which may be represented. 


Input and/or output operations which are performed through a 
local buffer. Buffered i/o can increase dramatically the 
performance of an i/o intensive operation because it avoids 
the overhead of calling the operating system to output small 
pieces of data. Rather the data is stored in a buffer and 
when the buffer becomes full the data is written to the 
actual device. 


A basic unit of storage in a computer. A byte contains 
eight bits of data. 


An alpha-numeric symbol represented by an 8-bit binary code. 


The (C)ommand (L)ine (I)nterface provides a user interface 
to the operating system. Commands are available for 
manipulating files and running programs. Refer to the 
AmigaDOS reference manual for documentation on the CLI. 


An older programming language with similarities to PASCAL 
and Modula-2. 


A software tool which translates a file from one form to 
another. For example a Modula-2 Compiler translates a 
source text file containing a Modula-2 program into machine 
code. 
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Cursor 


Debug 


Debugger 


Decimal 


Editing 
Editor 


EMACS 


File 


Filename 


Floating Point 


Function 


Hexadecimal 


Identifier 


Initialization 
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A marker which indicates where data typed on the keyboard 
will be displayed on the screen. 


To analyze and correct errors in a program. 


A software tool which is used to investigate errors ina 
program. A debugger allows interactive execution of a user 
program. 


A number of base 18. A number represented using the digits 
between @ and 9. 


The process of changing, adding or deleting text in a file. 


A program that is used to edit text data interactively. The 
EMACS program in this package is a good example of an 
interactive editor. 


A screen based text editor originally designed at the MIT 
Artificial Intelligence Laboratory. An EMACS based editor 
is included with this package. 


A named storage area used for storing data such as programs 
and text. Operations may be performed on a file such as 
copying, deleting, editing the file. 


The name associated with a file storage area. The format 
for the filename depends on the operating system being used 


A number which consists of an integer part, a fractional 
part and an exponent. Floating point number are used 
extensively in math calculations. 


A self contained piece of code which performs a specific 
operation. The function typically takes a number of input 
parameters and returns a single result. The word function 
is used interchangeably with the word procedure. 


A number of base 16. A hexadecimal number is represented by 
a sequence of digits @ to 9 and the letters A to F. 


A sequence of characters used in a program to identify an 
object symbolically. 


The part of a computer program which is involved in setting 
up internal information before the main part of the program 
begins execution. 


Intuition 


Linker 


Macro 


Mark 


Memory 


Octal 


Pathname 


Point 


Prompt 


Procedure 


Recursion 
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The Amiga user interface software. This software is 
responsible for maintaining screens, windows, requesters, 
gadgets and menus. 


A program which binds one or more separate components of a 
Program into a single executable file. 


A piece of data which will be used many times. The data is 
stored in a temporary place and can be called up by issuing 
a quick command sequence. 


A marker used in the EMACS editor. The marker can be used 
for specifying the beginning or end of a region of text. 
The mark may also be used to move from one end of a buffer 
to another very quickly. 


A storage area in a computer system. The storage may be 
used to store programs or data to be manipulated. 


A number represented in base 8. An octal number consists of 
one or more digits which range from @ to 7. 


A direct trail to be followed to gain access to a file. The 
trail is relative to the current position. The path may be 
used to access a file not directly available from the 
current directory. 


The location of the cursor in the current EMACS buffer. The 
text between the point and the mark is called the current 


region. All text related operations take place from the 
point. 


A request for information from the user. The prompt usually 
consists of a message describing the information needed. 
The user types in the requested information and then the 
program continues. 


A self contained piece of code which performs a specific 
operation. The procedure may accept input parameters which 
specify the data to be manipulated or the task to be 
performed. This term is used interchangeably with the term 
function. 


A function which in the course of execution calls itself 
directly or indirectly. This type of function is useful in 
breaking down a problem into smaller pieces. 
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Region 


Scope 


This term as applied to the EMACS editor refers to the text 
between the point and the mark. EMACS contains many 
operations which can effect a region of text such as 
deleting, inserting or copying the region. 


As applied to identifiers refers to the visibility of an 
identifier in different sections of a program. 


Source Level Debugger A debugger which operates on the original high level 


Stack 


Stream 


Symbolic Debugger 


Window 


WorkBench 
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language source code , rather than at the assembly language 
level. This type of debugger also allows variables to be 
examined in the format which corresponds to their real type. 


A block of memory which is used to store objects 
temporarily. Objects placed onto the stack must be removed 
in reverse order from the stack. 


A high-level virtual data object. A stream is normally 
connected to a device or file. A stream may be used to 
input or output data without actually knowing the type of 
device being accessed. 


An assembly language debugger capable of displaying symbolic 
information rather than purely numerical information. The 


debugger typically display the identifiers used in the 
original program. 


A rectangle on the video display in which data may be 
displayed. 


The icon based AmigaDOS operating system user interface. 
Files may be manipulated from the WorkBench using mouse 
movements. Programs may also be executed from the 
WorkBench. 
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Module-2 Language Syntax 
The syntax of the Modula-2 language is described here in Extended Backus-Naur 
Formalism (EBNF). The rules for EBNF are as follows: 


Symbol Meaning 


= expression equivalent to symbol 

| one or the other expression 

{] expression may appear zero or one times 
{} expression may appear zero or more times 
literal symbol in quotes 

ident = letter {letter | digit}. 


number = integer | real. 


integer = digit {digit} ["D"] | octalDigit {octalDigit} ("B"|"C")| 
digit {hexDigit} "H". 


real = digit {digit} "." {digit} [ScaleFactor]. 
ScaleFactor = "E" ["4"|"-"] digit {digit}. 

hexDigit = digit |"A"|"B"|"C"|"p"|"E"| mpm, 

digit = octalDigit | "8"|"9", 

octalDigit = "O"{"1"|"2"|"Z"[mqul sui men) nzn, 
string = "’" {character} "’" | ’"’ {character} ’"’ . 
qualident = ident {"." ident}. 

ConstantDeclaration = ident "=" ConstExpression. 


ConstExpression = expression. 


TypeDeclaration = ident "=" type. 


type = SimpleType | ArrayType | RecordType | SetType | 
PointerType | ProcedureType. 


SimpleType = qualident | enumeration | SubrangeType. 

enumeration = "(" IdentList ")". 

IdentList = ident {"," ident}. 

SubrangeType = [qualident] "[" ConstExpression ".." ConstExpression "J". 


ArrayType = ARRAY SimpleType {"," SimpleType} OF type. 
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RecordType = RECORD FieldListSequence END. 
FieldListSequence = FieldList {";" FieldList}. 
FieldList = [IdentList ":" type | 
CASE [ident] ":" qualident OF variant {"|" variant} 
[ELSE FieldListSequence] END]. 
variant = [CaseLabelList ":" FieldListSequence]. 
CaseLabelList = CaseLabels {"," CaseLabels}. 
CaseLabels = ConstExpression [".." ConstExpression]. 
SetType = SET OF SimpleType. 
PointerType = POINTER TO type. 
ProcedureType = PROCEDURE [FormalTypeList]. 


FormalTypeList = "(" [[VAR] FormalType 
{"," [VAR] FormalType}] ")" [":" qualident]. 


VariableDeclaration = IdentList ":" type. 

designator = qualident {"." ident | "[" ExpList "]" | """}. 
ExpList = expression {"," expression}. 

expression = SimpleExpression [relation SimpleExpression]. 
relation = "=" | "#" | "<! | Mga" | HH | Me" | IN, 
SimpleExpression = ["+"|"-"] term {AddOperator term}. 
AddOperator = "+" | "-" | OR. 

term = factor {MulOperator factor}. 

MulOperator = "*" | "/" | DIV | REM | MOD | AND | "&" . 


factor = number | string | set | designator [ActualParameters] | 
"(" expression ")" | NOT factor | "~" factor. 


set = [qualident] "{" [element {"," element}] "}". 
element = ConstExpression [".." ConstExpression]. 
ActualParameters = "(" [ExpList] ")" . 

statement = [assignment | ProcedureCall | 


IfStatement | CaseStatement | WhileStatement | 


I-4 


Module-2 Language Syntax 


RepeatStatement | LoopStatement | ForStatement | 
WithStatement | EXIT | RETURN [expression] ]. 


assignment = designator ":=" expression. 

ProcedureCall = designator [ActualParameters]. 

StatementSequence = statement {";" statement}. 

IfStatement = IF expression THEN StatementSequence 
{ELSIF expression THEN StatementSequence} 
[ELSE StatementSequence] END. 


CaseStatement = CASE expression OF case {"|" case} 
[ELSE StatementSequence] END. 


case = [CaseLabelList ":" StatementSequence]. 
WhileStatement = WHILE expression DO StatementSequence END. 
RepeatStatement = REPEAT StatementSequence UNTIL expression. 


ForStatement = FOR ident ":=" expression TO expression 
[BY ConstExpression] DO StatementSequence END. 


LoopStatement = LOOP StatementSequence END. 
WithStatement = WITH designator DO StatementSequence END . 
ProcedureDeclaration = ProcedureHeading ";" (block ident | FORWARD). 
ProcedureHeading = PROCEDURE ident [FormalParameters]. 
block = {declaration} [BEGIN StatementSequence] END. 
declaration = CONST {ConstantDeclaration ";"} | 

TYPE {TypeDeclaration ";"} | 

VAR {VariableDeclaration ";"} | 


ProcedureDeclaration ";" | ModuleDeclaration ";". 


FormalParameters = 
"(" [FPSection {";" FPSection}] ")" [":" qualident]. 


FPSection = [VAR] IdentList ":" FormalType. 
FormalType = [ARRAY OF] qualident. 


ModuleDeclaration = 
MODULE ident [priority] ";" {import} [export] block ident. 


priority = "[" ConstExpression "]". 
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export = EXPORT [QUALIFIED] IdentList ";". 


import = [FROM ident] IMPORT IdentList ";". 


DefinitionModule = DEFINITION MODULE ident ";" 
{import} {definition} END ident ".". 


definition = CONST {ConstantDeclaration ";"} | 
TYPE {ident ["=" type] ";"} | 
VAR {VariableDeclaration ";"} | 
ProcedureHeading ";" . 

ProgramModule = MODULE ident [priority] ";" {import} block ident "." . 


CompilationUnit = DefinitionModule | [IMPLEMENTATION] ProgramModule. 
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